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VIENI CON NOI 


L’iscrizione al LIST-CLUBti da diritto: 



ISCRIVITI! 


— A ricevere immediatamente la tessera d’i¬ 
scrizione insieme ad un adesivo 

— A inviare programmi di tua creazione che, 

se pubblicati, saranno compensati con un 
accessorio per il computer 

— A partecipare alle iniziative ri¬ 
servate ai soci e usufruire dei 
servizi per essi predisposti 
— Ad ottenere sconti 
sulle pubbicazio- 


ni e sui pro¬ 
dotti di LIST: la 
prima offerta LIST è 
rappresentata da una 
magnifica maglietta per 
l’estate. 



EDITORIALE 


Dopo quello della Califor¬ 
nia, è scoppiato negli “Sta¬ 
tes ” il mito della Florida. 
Fino ad una decina di anni 
fa, questo Stato era famo¬ 
so solo per essere la meta 
preferita delle vacanze del¬ 
la media borghesia ameri¬ 
cana della East Coast in 
cerca di un po ’ di sole. 

Oggi, la Florida, da sempre 
identificata con Miami 
beach, è in una fase di pro¬ 
fonda trasformazione eco¬ 
nomica e sociale: mentre 
una volta essa basava la 
sua ricchezza sul turismo e 
l’agricoltura, ora ha punta¬ 
to tutte le sue carte sull’in¬ 
dustrializzazione, raggiun¬ 
gendo in questo campo, 
uno dei primi posti negli 
U.S.A.. 

Se, fino a ieri, l’Eldorado 
era, dunque, la California, 
oggi c’è la Florida a conten¬ 
derle questa fama. 

Le autorità dello Stato in 
questione hanno messo a 
punto una politica volta a 
favorire attività industriali 
non inquinanti e ad alto im¬ 
piego di tecnologia. 

La conseguente creazione 
di nuovi posti di lavoro e la 
mancata contaminazione 
dell’ambiente, hanno spin¬ 
to migliaia di americani a 
trasferirsi in massa in una 
regione ospitale anche sot¬ 
to l’aspetto climatico. 

Ecco, il discorso fatto per 
la Florida potrebbe benissi¬ 
mo valere anche per l’Italia 
e soprattutto per il nostro 
Mezzogiorno. 

Anche nel Sud il clima favo¬ 
revole, il non eccessivo de¬ 
grado ecologico ed una po¬ 
litica economica impernia¬ 
ta sullo sviluppo di un 'indu¬ 


ri nrorrui 
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Computer, 

nuova 

frontiera 


stria pulita e ad elevato 
contenuto tecnologico, pur 
senza immaginare un im¬ 
possibile fenomeno immi¬ 
gratorio come quello verifi¬ 
catosi in Florida, potrebbe¬ 
ro rivelarsi un cocktail di si¬ 
tuazioni ideali per arginare 
una disoccupazione cre¬ 
scente, soprattutto tra la 
popolazione giovanile, in 
particolare quella intellet¬ 
tuale. 

Senza dimenticare che 
l’impegno del Governo in 
alcuni settori emergenti 
come l’informatica, oltre 
che dare concreta attuazio¬ 
ne alle job creati ons al l’in¬ 
terno del Paese, consenti¬ 
rebbe alle aziende italiane 
di ridurre il gap tecnologi¬ 
co che le separa da quelle 
americane e giapponesi e 
di conquistare nuovi impor¬ 
tanti segmenti del mercato 
internazionale. 

La sensibilità da sempre di¬ 


mostrata da parte dell’Italia 
verso i Paesi in via di svi¬ 
luppo, poi, oltre al nobile 
contributo del nostro Pae¬ 
se volto a risolvere i proble¬ 
mi della sopravvivenza quo¬ 
tidiana, dovrebbe spingere 
il Governo a mettere in atto 
una serie di aiuti a favore 
dei PVS che contempli il 
trasferimento in quei paesi 
di inputs italiani anche nel 
settore dell’informatica. 

Ed allora diventa logico 
prevedere un piano per una 
educazione di base nei 
paesi del terzo e quarto 
mondo che, iniziando dal 
software, arrivi fino alla co¬ 
struzione in loco della 
hardware nel suo comples¬ 
so o, almeno, di una serie 
di componenti. 

L’Italia ha bisogno, come 
nei settori della moda, del¬ 
le calzature, dell’automobi¬ 
le ecc. di dar vita ad uno sti¬ 
le “made in Italy” perfino 
nel settore dei computers, 
soprattutto nel ramo degli 
“home”. 

Se ciò si dovesse verifica- 
re, verrebbe meno la ecces¬ 
siva dipendenza che l’Italia 
soffre nel campo della tec¬ 
nologia nei confronti di 
Usa e Giappone, si moltipli¬ 
cherebbero i posti di lavoro 
e così l’informatica, oltre 
che dar vita a nuove profes¬ 
sioni, divenuta merce 
d’esportazione, creerebbe 
ricchezza nel Paese che, in 
omaggio alla sua antica vo¬ 
cazione a favore dei PVS, 
potrebbe contribuire in ma¬ 
niera più qualificata al loro 
sviluppo, assicurandosene 
una stabile e profonda ami¬ 
cizia. 

Fausto Carmignani 
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LIST POSTA 



Complimenti a 
LIST”!!! 


(1 


Mi permetto di sottoporre alla V/S 
attenzione alcune considerazioni 
pratiche: 

1) Vista l’ottima potenzialità del 
Commodore 64 di eseguire pro¬ 
grammi con notevoli blocchi, anche 
di uso professionale, al di là di bana¬ 
li e ripetitivi giochi, è auspicabile 
che la rivista sviluppi un’imposta¬ 
zione su programmi di utilizzo PRA¬ 
TICO e di UTILITY (C/C Bancario - 
Archivio - Clienti - ecc...) 

2) Molti possessori di Commodore 
64 compreso il sottoscritto, usano il 
FLOPPY-DISC, indispensabile per 
un corretto uso come memoria di 
massa; non potreste dare le neces¬ 
sarie modifiche (anche solo in ap¬ 
pendice) per poter usufruire del 
FLOPPY? 

3) Non è possibile l’acquisto su sup¬ 
porto magnetico (cassetta o disco) 
dei programmi presentati su LIST? 
Ringrazio doverosamente dell’at¬ 
tenzione. 

Cordiali saluti 

Giovanni Zavattero 
Cuneo 

Ringraziandola per i complimenti ve¬ 
niamo ai suoi consigli. 

Sappiamo bene che il Commodore 64 
è un computer con un'elevata poten¬ 
zialità e, proprio per questo, preferia¬ 
mo pubblicare sulle pagine di questa ri¬ 
vista programmi di una certa utilità, ve¬ 
di ad esempio il DATA BASE per la 
creazione e "la gestione" di un archi¬ 
vio, apparso, sul N° 2 di LIST. 

Nel n°3 si è preferito proporre qualco¬ 
sa di piu divertente, ma non meno im¬ 
pegnativo, perché composto, come di¬ 
ce lei, da notevoli "blocchi". 

Si è trattato di un'applicazione del 
computer nel campo musicale: in bre¬ 
ve, una vera e propria simulazione di 
un sintetizzatore musicale polifonico. 
Non dimentichiamo che il Commodore 
64 è usato da molti gruppi musicali in 
alternativa al molto piu costoso FAIR- 
LIGHT ed inoltre, è sicuramente più 
versatile e meno costoso dei primi 
moog o minimoog largamente com¬ 
mercializzati. 

Il secondo punto della sua lettera attie¬ 
ne ad un problema di carattere tecni¬ 
co. In linea generale le basti sapere 
che la routine da lei richiesta ha una 
struttura analoga a quella usata per il 
registratore a cassette, cambia solo il 
numero di identificazione della perife¬ 
rica in questione. 

Esempio: 

lettura di FILE con registratore. 

La cosiddetta "apertura di colloquio 
con la periferica "sieffettua digitando: 
OPEN 1,1,0 "nome file": per il floppy 
disc invece, si dovrà digitare: OPEN 





1,8,0, "NOME FILE". 

Come avrà notato, l'istruzione è molto 
simile, cambia solo il secondo numero 
che sarà 8 per il floppy e 1 per il regi¬ 
stratore a cassette. Ci sarebbe da 
spiegarle anche la cosiddetta "FOR¬ 
MATTAZIONE" del dischetto, ma rite¬ 
niamo che non sia questa la sede adat¬ 
ta e comunque le consigliamo di legge¬ 
re con attenzione il manuale in dotazio¬ 
ne alla macchina. 

In quanto alla possibilità di reperire i 
nostri programmi già pronti per l’uso, 
stiamo da tempo vagliando questa 
possibilità e non appena tutto sarà 
pronto, ne daremo notizia su queste 
pagine. 


S.O.S per il PHILIPS 
C7420 


Ho appena acquistato il computer 
della “Philips” C 7420 VIDEOPAC + 
BASIC MICROSOFT. Non sono an¬ 
cora capace di usarlo e non possie¬ 
do nessun programma. Desidererei 
sapere se è possibile avere dei pro¬ 
grammi di videogiochi già fatti ed a 
chi posso rivolgermi per avere alcu¬ 
ne spiegazioni riguardanti l’uso dei 
computer. 

Attendo con ansia notizie su quanto 
richiesto. 

N.B.: siccome sono in possesso da 
poco del computer, vorrei che mi de¬ 
ste qualche consiglio; pertanto se 
nella vostra rubrica troverò ciò che 
mi serve per approfondire e capire il 
computer di cui sono in possesso, 
molto presto aderirò a quanto da voi 
proposto alle pagg. 95-96 del n°2 
(MARZO/APRILE)di LIST. 

Distinti saluti. 

Gianluca Nogara 
Bologna 

Gent.le lettore, 

avendo acquistato una macchina nuo¬ 
va per il mercato e tra l'altro anche po¬ 
co diffusa, non possiamo, per il mo¬ 
mento, soddisfare la sua richiesta di li¬ 
stati adatti al PHILPS C7420 VIDEO- 


PAC, concepito inizialmente come 
semplice consolle per videogiochi ed 
ora utilizzabile, grazie alla CARTUCCIA 
BASIC MICROSOFT, anche come Ho¬ 
me Computer. 

Tra le caratteristiche tecniche ricor¬ 
diamo il microprocessore usato Z 80, 
la memoria RAM di 22bytes. 

Essendo il basic un linguaggio univer¬ 
sale, salvo qualche piccola concessio¬ 
ne, può imparare i rudimenti della pro¬ 
grammazione, uniti a spiegazioni di ca¬ 
rattere pratico anche abbastanza ap¬ 
profondite, seguendo la rubrica, pub¬ 
blicata regolarmente su List, intitolata 
"Dentro il computer". 

Si rivolga anche al rivenditore presso il 
quale ha acquistato Thome computer 
in questione: egli dovrebbe distribuire 
cartucce di giochi e/o altre applicazio¬ 
ni e quasi certamente anche dei libri 
adatti ai principianti. 

In ogni caso le consigliamo di leggere i 
seguenti testi: 

Thomas C. Bartee "Programmare in 
basic ", Zanichelli editore 1983; 

"Il Basic per tutti", Gruppo editoriale 
Jackson: 

"50 esercizi in basic", Gruppo edito¬ 
riale Jackson. 


Che bella rubrica 
“scuola e computer”! 

Innanzitutto mi complimento con 
Voi per l’ottima rivista pubblicata. 
Anche se personalmente preferirei 
trovare più programmi di utilità an¬ 
ziché giochi. Un’atra cosa di cui sen¬ 
to la mancanza nella vostra (e nelle 
altre) riviste di computer sono i raf¬ 
fronti tra le varie istruzioni Basic dei 
computer per I quali pubblicate pro¬ 
grammi. Ciò perché conoscendo le 
funzioni Basic equivalenti nei vari 
microcomputer (insieme natural¬ 
mente alle diversità nel trattamento 
della grafica e del suono) ò possibile 
convertire un programma scritto per 
un dato microcomputer ad un altro. 
Una cosa che mi piace molto è la ru¬ 
brica “scuola e computer”. Di que¬ 
sta in particolare mi piace l’imposta¬ 
zione e la cura nel dettagliare i vari 
algoritmi. Non ò possibile estende¬ 
re il metodo ad altri campi? Nella ru¬ 
brica NEWS del n. 3 di LIST ho trova¬ 
to (con mia grande sorpresa) la de¬ 
scrizione dettagliata delle caratteri¬ 
stiche generali dell’ORIC ATMOS. 
lo possiedo già questo HOME, ho 
però difficoltà a reperire la lista del 
software disponibile, e naturalmen¬ 
te ad acquistarlo, potreste darmi Voi 
qualche indirizzo utile? 

Sebbene io sia già alla fine della tra¬ 
duzione del manuale in dotazione al 
computer, ho trovato scarse infor¬ 
mazioni per quanto concerne la 
ROM (inteso come indirizzi di par- 
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lenza di subroutines utili), potreste 
pubblicare qualcosa in proposito? 
Oppure dare indicazioni di dove si 
possa reperire (se è già stato pubbli¬ 
cato) questo tipo di materiale. 
Ringraziandovi per la vostra cortese 
attenzione Vi faccio i miei migliori 
auguri per la vostra bella rivista. 

P.S. Potreste pubblicare II mio indi¬ 
rizzo in modo che gli altri possesso¬ 
ri di un ATMOS possano mettersi in 
contatto con me? 

Vescovini Giuseppe 
Via Fleming n. 2 - 41000 Modena 

Con piacere diamo risposta affermati¬ 
va alla richiesta del sig. Vescovini, ri¬ 
guardante la pubblicazione del suo in¬ 
dirizzo. 

Effettivamente è piuttosto difficile re¬ 
perire buon Software per il suo home 
computer; il perché è semplice, la pro¬ 
duzione già affermata in altre nazioni 
stenta ad avviarsi qui in Italia. 

Non a caso molta stampa specializza¬ 
ta solo ora comincia ad interessarsi 
del modello 1 della ORIC mentre sap¬ 
piamo che tale modello è già stato 
"eletto" computer dell'anno in Fran¬ 
cia. 

Per maggiori e dettagliate informazioni 
le consigliamo di consultare il bime¬ 
strale ORIC OWNER edito dalla Tan- 
soft (Unit 1 & 2, Cambridge Techno 
Park, Newmarket Road, Cambridge). 
L'indirizzo della ditta produttrice è il 
seguente: 

Oric Product International L TD 
Cowerh Park. London Road 
Sunninghill Ascot 
BerksSL5; 7SE(GB) 

Apprezziamo inoltre il suo consiglio ri¬ 
guardante i raffronti tra le istruzioni 
BASIC di vari computer. 

Possiamo anticiparle che dal prossimo 
numero cominceremo a pubblicare 
programmi specifici che soddisfino di¬ 
rettamente questa esigenza. 

Certi che resterà un nostro affezionato 
lettore la ringraziamo per i complimen¬ 
ti ed i suggerimenti espressi nella sua 
lettera. 


Cos’è la musica cosmi¬ 
ca? 

... bene (anche se non ho trovato tut¬ 
to completamente chiaro) l’articolo 
sulla musica: vi chiedo però, visto 
che io e credo tanti lettori non cono¬ 
sciamo a fondo la musica degli scor¬ 
si decenni, di spiegare meglio, 
nell’articolo o a fianco, almeno i rife¬ 
rimenti meno owii. Per esempio: 
che cos’è la musica “cosmica”? 

Riccardo Renzi 
Roma 

Benché la sua richiesta abbia senz'al¬ 
tro le sue brave ragioni (che poi vuol di¬ 



re che cercheremo di tenerne conto il 
più possibile) è bene cogliere l'occa¬ 
sione per chiarire che è quasi inevitabi¬ 
le che in un articolo specialistico vi sia¬ 
no dei riferimenti, più o meno cospicui, 
a temi e a figure che non tutti conosco¬ 
no. Di conseguenza, anche se il ricor¬ 
so a note fuori testo o ad analoghi sup¬ 
porti redazionali può riprodurre l'entità 
del problema, il rischio dell'accenno 
poco comprensibile rimane. L'impor¬ 
tante, allora, è non farsi scoraggiare e 
continuare a darci dentro. Anche 
perché, alla fin fine, c'è stato per tutti 
un momento (un mese o dieci anni fa) 
in cui Pink Floyd era uno nome miste¬ 
rioso e il moog, o magari il fair tight, il 
classico oggetto non ancora identifica¬ 
to. 

Elettronica si, ed elet¬ 
tronica no 

Ho letto l’articolo sulla musica ma 
non ho capito se l’uso dell’elettroni¬ 
ca è visto positivamente o no. Per 
certi versi sembra di si, per altri il 
contrario. Insomma, mi piacerebbe 
che vi spiegaste meglio. Inoltre vor¬ 
rei più notizie sui tipi di tastiera elet¬ 
tronica. 

Fabrizio Destefani 
Milano 

Effettivamente - e non si veda la cosa 
come un trucco per schivare il proble¬ 
ma di un giudizio più nitido - è proprio 
cosi: l'uso dell'elettronica può risultare 
di volta in volta, a seconda di chi ne è 
l'artefice, un 'esperienza significativa o 
una soluzione occasionale. D'altron¬ 
de, lo stesso discorso vale per qualun¬ 
que tipo di espressione che nasca più 
da una innovazione tecnologica che da 
una riflessione propriamente artistica. 
Certo, oggi l'elettronica (sinteizzatori, 
drum-machine, etc.) può sembrare 
qualcosa di unitario, ma prima o poi ci 
si dovrà rendere conto, come accadde 
a suo tempo con il cinema, che ancora 
una volta la scoperta di un nuovo lin¬ 



guaggio è un po' come la scoperta di 
un nuovo territorio. Dopo un certo tem¬ 
po ci si trova gente di tutte le risme... 


List risponde 

Ho ricevuto con molto piacere la ri¬ 
sposta di LIST ai miei quesiti e Vi vo¬ 
glio ringraziare per la Vs. solerzia. 
L’errore era veramente nei DATA, 
poiché io avevo scritto 560 invece di 
56,0... 

Colgo questa occasione per elogia¬ 
re di nuovo LIST la quale, a differen¬ 
za di altre riviste, pubblica listati 
che, una volta battuti (correttamen¬ 
te...), funzionano alla perfezione. 
Inoltre LIST (e credo proprio sia 
l’unica) risponde anche privatamen¬ 
te ai quesiti dei lettori! 

Cordiali Saluti 

Giovanni Palli 
Pavia 


Grazie dei programmi 
per il Sega 

Vi ho scritto molto tempo fa ed ora 
mi sento di ringraziarvi. Nella mia 
lettera vi chiedevo la cortesia di 
pubblicare dei programmi per il Se¬ 
ga SC 3000. Cosa che avete puntual¬ 
mente fatto e perciò vi ringrazio con 
i miei migliori complimenti e auguri. 

Baraottl Marco 
La Rotta (Pi) 










Geometria analitica 
e calcolatore 


trasformi un linguaggio algebri¬ 
co in un linguaggio geometrico: 


fig. 2 


a cura di Duccio Alfano 

Questioni di punti e di 
numeri 

Come è noto, una generica 
equazione a due incognite del ti¬ 
po y = f(x) ammette infinite solu¬ 
zioni, ciascuna delle quali è 
composta da una coppia ordina¬ 
ta di numeri. 

Ad esempio, l’equazione: 
y = 2x - 3 ha per soluzioni: 


o 

II 

X 

X 

II 

y=-3 

1 

II 

>. 


x = 2 


y = 1 ecc. 


Per potere visualizzare il lega¬ 
me tra le grandezze x e y, 
espresso dall’equazione, si pos¬ 
sono usare due rette, di solito 
perpendicolari, su ciascuna del¬ 
le quali si siano scelti, in manie¬ 
ra del tutto arbitraria, un’origi¬ 
ne, un verso e un’unità di misu¬ 
ra: 


fig.l 


In tal modo, ciascuna soluzione 
di una equazione a due incogni¬ 
te può essere rappresentata 
mediante un punto del piano 
avente per "coordinate" cia¬ 
scuno dei due numeri che costi¬ 
tuiscono una soluzione. 
L'insieme dei punti del piano 



corrispondenti a tutte le (infinite) 
soluzioni, prende il nome di gra¬ 
fico della equazione. 

Il sistema di riferimento scelto 
può essere interpretato come 
una sorta di "traduttore" che 


Quello che è importante capire 
è che la relazione tra l’equazio¬ 
ne e il suo grafico è strettamen¬ 
te legata alla scelta del sistema 
di riferimento, cioè che: 


y« (M 



1— 




co 








h 2 


a) la stessa equazione può ave¬ 
re, in diversi sistemi di riferi¬ 
mento, rappresentazioni grafi¬ 
chediverse 

fig. 3 

b) in diversi sistemi di riferimen- 
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SCUOLA E COMPUTER 


to lo stesso insieme di punti può 
essere grafico di equazioni di¬ 
verse. 


fig. 4 


ve 


a 


H:~: ::: IH 




t 

r 






r 



■ 


■ \> 


: 

r v vv 

° 1 

>1 


«RAPI CO DE 

t* e •sw a ? t 

O Wt 6il 

Fiu O e l L • 

t aoAì-ione 


y = s i ri ( *) 

Con "HNùO '/ - 

*CALA’' A" - 
X 

sin (zx) con "fop»o 

£<A LA" za 

X 

M 



< l ì <, 5 - W «• 


A 












• C % * c t 4- t 

z 




? 






1 

1 

) 

* 

f 

* 

A 

t 









1 


































1 • • • 1 • 

• : : : ! : ; 

• 

















K 
































































*** 


Per quanto riguarda i numeri, il 
calcolatore non ha problemi. 
Per quanto riguarda la rappre¬ 
sentazione grafica, però, il cal¬ 
colatore è costretto ad usare un 
linguaggio non suo, e, quindi, 
deve tradurre i concetti geome¬ 
trici in concetti numerici per po¬ 
terli elaborare: la grafica su un 
calcolatore va perciò affrontata 
con prudenza e pazienza. 

Per fortuna, la maggior parte dei 
microcalcolatori ha riassunto le 
‘‘traduzioni" più necessarie in 
opportune istruzioni BASIC, op¬ 
pure offre programmi atti allo 
scopo. 

Le istruzioni particolari, però, 
possono differire da marca e 
marca, anche se obbediscono 
alla stessa logica. 

Qui faremo riferimento al CBM 
64, con il BASIC esteso dal pro¬ 
gramma "SIMONS’ BASIC” (chi 
non lo possegga ancora se lo 
procuri al più presto, se vuole 
sfruttare al massimo le notevoli 
potenzialità grafiche del proprio 
calcolatore). 

Cerchiamo ora di capire come è 
strutturata la grafica. 

Per prima cosa, tutti i caratteri 
alfanumerici sono caratteri gra¬ 
fici. Lo schermo video è suddivi¬ 
so in un reticolo di 25 righe e 40 
colonne, per cui si possono otte¬ 
nere 25x40=1000 locazioni, 
corrispondenti a tutte le possibi¬ 
li posizioni del cursore: 


fig. 5 


In ciascuna delle 1000 posizioni 
può essere rappresentato un 
carattere alfanumerico o grafi¬ 
co, che è però, a sua volta, un 
segnale complesso. 

In altri termini, ciascun quadra¬ 
tino tra i mille indirizzabili è a 


sua volta una griglia di 8 righe e 
8 colonne, cioè è composto da 
8x8 = 64 quadratini elementa¬ 
ri. 

Ciascuno di questi quadratini 
elementari (pixel) costituisce 
l'informazione grafica di base, 
potendo, sotto controllo della 
CPU, essere acceso (1) o spen¬ 
to^). 

La lettera A, ad esempio, può 
essere rappresentata nel se¬ 
guente modo: 


fig. 6 

I pixel a disposizione sono dun¬ 
que, nel CBM 64, 40x80, per 
ogni riga, 25 x 8, per ogni colon¬ 
na. 

In tutto sono quindi 
320 X 200 = 64000. 

Per poter controllare singolar¬ 
mente ciascun pixel occorre in¬ 
formare il calcolatore che si 
vuole passare dal ‘‘modo nor¬ 
male" aH’"alta risoluzione”. 
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SCUOLA E COMPUTER 


trova il pixel corrispondente, e 
segnala errore. 

Se si volessero grafici a molti 
colori, esiste l’istruzione 
MULTI c1.c2.c3 
dove ci, c2, c3 sono i codici dei 
colori che si vogliono usare, ai 
quali si farà riferimento, nelle al¬ 
tre istruzioni con 
1-c1,2-c2,3-c3. 

N.B. Ogni punto, nel "modo 
multicolore”, occupa una lar¬ 
ghezza di due pixel, pertanto la 
x può variare solo tra 0 e 159. 

Se ora volessimo rappresentare 
sul nostro schermo il grafico 
della funzione y = x, basterebbe 
il programma: 
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Questo si può fare o con oppor¬ 
tune istruzioni PEEK e POKE o, 
molto più semplicemente, con 
istruzioni speciali (che non sono 
altro che piccoli programmi ri¬ 
chiamati da una singola parola). 
Si può immaginare lo schermo 
in alta risoluzione come un si¬ 
stema di assi cartesiani aventi 
le ascisse che variano da 0 a 
319 e le ordinate che vanno da 0 
a 199; 

fig. 7 

Per poter accendere o spegne¬ 
re (o cambiare colore) ciascun 
pixel, basterà allora individuarlo 
con le sue coordinate. 


Il SIMONS’ BASIC mette a di¬ 
sposizione dell’utente, tra l’al¬ 
tro, due istruzioni fondamentali 
atte allo scopo: 

HIRESa.b 

(comanda il passaggio in alta ri¬ 
soluzione; a indica il codice del 
colore del grafico, b il codice del 
colore dello sfondo) 

PLOT x, y, a 

(individua il pixel di coordinate 
x,y e, se a = 0, lo disattiva, se 
a = 1, lo attiva, se a = 2, inverte 
la situazione preesistente) 

N.B. Se le coordinate del punto 
da "plottare” non soddisfano le 
condizioni 0^x^319 e 
0^y<199, il calcolatore non 


10 HIRES0,1 (grafico nero 
su fondo bianco) 

20 FOR X = 0 TO 319 
30 Y = X 

40 IF (Y<0 OR Y>199) 

GOTO 60 
50 PLOTX, Y, 1 
60 NEXT 

70 PAUSE 10(ferma l’immagine 
per 10 secondi) 


Se si volesse, come si fa di soli¬ 
to, un asse y diretto verso l’alto, 
basterebbe sostituire la 30 con: 
30 Y = 200 - X (i nve rte I ’ asse y) 
In questo modo, però, si ottiene 
solo la parte di grafico compre¬ 
sa nel I quadrante. 

Inoltre, se volessimo il grafico di 
y = -x, non otterremmo nulla, 
perché, per x che varia da 0 a 
319, la y assume valori sempre 
negativi, che non sono rappre¬ 
sentabili. 

Operiamo allora un cambiamen¬ 
to di sistema di riferimento sce¬ 
gliendo la nuova origine, per 
esempio, nel centro dello scher¬ 
mo, punto di coordinate x = 160, 
y = 100. 

Avendo cambiato il sistema di ri¬ 
ferimento occorrerà modificare 
l’equazione. Vediamo in che 
modo. 
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fig. 8 


Un punto di vecchie coordinate 
x = 250 e y = 130, avrà nuove 
coordinate X = 250-160 e 
Y = 130-100. 

In generale, se x Q e y D sono le 
coordinate della nuova origine, 

X = x-Xo,Y = y-y 0 
Ora, se noi vogliamo ottenere il 
grafico di una funzione Y = f(X) 
in un sistema di riferimento la 
cui origine abbia, nel sistema 
del calcolatore, coordinate x c e 
y 0 , dovremo trasformare l’equa¬ 
zione in quella che, nel sistema 
del calcolatore, ha lo stesso 
grafico, cioè: 

y-y 0 = f(x-X 0 ) 
cioè y = f(x - x 0 ) + y D 
Il programma che segue per¬ 
mette la rappresentazione grafi¬ 
ca contemporanea di N rette in 
un sistema di riferimento la cui 
origine può essere scelta a pia¬ 
cere nello schermo. 

Verranno rappresentati solo i 
punti le cui coordinate soddisfi¬ 
no le condizioni: 

-x 0 <X<319-x 0 

-y 0 <Y<159-y 0 

segue listato 
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10 FRINT"ri¬ 
al PPINT" GRAFICI DI RETTE " 

SO PFINT PRIMI- TIPO PI EQUAZIONE V*H*XaQ- 
40 PPINT INPUT - QUANTE PETTE VUOI DISEGNARE" . N 
5Ó PPINT PPIMT" INTRODUCI I COEFFICIENTI" PRINT 
*0 FOR K*1 TO N 

,*0 PPINT B M<".K;">«-; : INPUT IKK) 

SM rPINT"Q<",K,">«", INPUT Q(K> PRINT 


90 NEXT K _ 

100 PPINT PRINT PPINT-PREMI UN TRSTO PER CONTINUARE" 
HO GET A* IF A$="" GOTO 110 
120 PPINT "TT 

140 PPINT PRINT" INTRODUCI LE COORDINATE DELL'ORIGINE' 


150 PPINT 
1*0 PPINT 
170 PPINT 


X0 DEVE ESSERE COMPRESA TRA 0 E 319" 

,.v ...... V0 DEVE ESSERE COMPRESA TRA 0 E 199" 

180 PRINT INPUT"X0*",X0 INPUT"V0*";V0 PRINT PRINT 
185 X1 —XO X2«319-X0 VI—V0 V2-199-V0 
1*0 PRINT"’SI OTTERRÀ'LA PARTE DI GRAFICO CON" 

2O0 PRINT" ASCISSA COMPRESA TRA";XI,"E",X2 

210 PRINT" ORDINATA COMPPESA TRA";VI,"E";Y2 

220 PRINT PRINT PRINT" FREMI UN TASTO PER I GRAFICI 1 

230 GET Af IF A*="" GOTO 230 

240 PPINT"IT 

SIC HIPES 01 

329 LINE 0-200-V0,319»200-V0,1 

330 LINE X0.0.XO.199,1 
340 FOR K = 1 TU N 
350 FOR X*0 TO 319 

360 V«2O0-<M<K)*<X-X0)+GKK)*V0 > 

*70 IF v.0 OR V>199 GOTO 385 

380 F1.0T XV, 1 

385 NEXT X 

390 NEXT K 

40O PAUSE 10 


Nel prossimo numero: cambia¬ 
mento del fondo scala; dimen¬ 
sionamento automatico; funzio¬ 
ni trigonometriche. 


READ*/. 
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Defender 


Un giochino da digitare nei ritagli di tempo. 

Divertente e molto semplice nella sua struttura basilare, è diviso in 2 parti. 

La procedura di registrazione del programma è la seguente: 
si digita il primo listato e lo si registra; 
si digita NEW e si preme RETURN; 

si digita il secondo listato e lo si registra di seguito al primo; 

si fa tornare indietro il nastro, e solo allora si ricarica il primo programma e, a procedura ultimata, si 
avvia il programma con RUN. 

Dopo la visualizzazione del titolo e delle istruzioni, automaticamente il computer avvierà il registrato- 
re e caricherà il secondo listato. 

Da notare l'uso delle locazioni di memoria 36865 e 36863. 

Attraverso un appropriato uso di un ciclo FOR-NEXT, si simula la chiusura dello scherno con un effetto 
di "riempimento ", e si crea anche un movimento verticale delle scritte. 

Le routines in questione sono individuabili nelle righe 100-130 e 155, 185, 192, 197del primo listato. 


10 PRI NT " 73" : P0KE36879,76 : P0KE36878,15 
15 F0RT=1T01000 : NEXT 
20 H$="DEFENDER" 

30 L=LEN<H$> 

40 PRINTTRB<83> " SS 3 k ■ fii 3 Til 4 3 k ■ fii 3 4 k ■ fii 3 4 ■" 

45 PRINTSPC<7>;: 

50 F0RC=1T0L 

68 print ,, i m ;mid$<h$,c,i>; :fort=itoi5 

65 POKE 36376,127+<ASC<MID$<H$,C,NEXTT 
70 P0KE36876,8•NEXTC : PRINT 

30 PRINT"WST] 3 ii ■ k !4 4 fll 3 li ■ t !4 4 I» 3 fii I k 3 4 m ■" 

90 FORT=1TO500 : NEXT 

100 F0RP=38T0150STEP1 

110 P0KE36865,P:P0KE36876,P+100 :NEXTP 

120 PRIHT"7Jil COPYRIGHT 1984 W MASSIMO TRUSCELLI M VIA STAMIRR 70/9" 
125 PRINT"» 00162 ROMA" 

130 FORP=150TQ38STEP-1 : P0KE36S65,P : P0KE36876,P+100 : NEXTP 
135 PRINT"PREMI UN TASTO" : P0KE36876, 0 
140 GETX$ : IFX$=""THEN140 
145 PRINT" 714" : P0KE36879,44 

155 F0RA=46T00STEP-2:P0KE36883,A•P0KE36876,A+127:NEXTA 
160 PRINT'Tl ISTRUZIONI ««»" 

165 PRINT"<F1> ALTO»" 

170 PRINT"<F7> BASSO»" 

175 PRINT "RETURN FIREWWW»" 

177 PRINT"MBUONA FORTUNA!!!... MW" 

180 PRINT"»» PREMI UN TASTO" 

185 FORA=0TO46STEP2:P0KE36883,A :P0KE36876,A+127:NEXTA :P0KE36876,0 
190 GETX$^IFX$=""THEN190 

192 FQRA=46TQ0STEP-2:P0KE36883,A = P0KE36876,A+127: NEXTA 
195 PRINTTFOUND DEFENDER M-OADINGV 

197 FORA=0TO46STEP2:P0KE36383,A ; P0KE36876,A+127:NEXTA :P0KE36876,0 

199 PQKE36876,240 :FORT=1TO300:NEXT:P0KE36876,0 

200 P0KE631,131:P0KE632,13 = POKE198,2:NEW 

READY. 
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1 PQKE36878,15 :TS=0 ; FRINT"IT 

2 DEFFNFX X)=7745+22*(INT<RND(.>*20> > : GOTO200 
10 PRINT "7]":P0KE36S79,107'N=7922:SC=0:D=10 
20 POKEN/90 

22 I=FNR(X) : J=FNR(X> : K=FNR(X) : H=FNR(X) 

24 IFH=IQRH=JORH=KORI=JORI=KORJ=KTHEN22 

25 POKEH,42 :POKEI,42 :F’OKEJ,42 :POKEK,42 
30 GETR$: IFR$=CHR$ <13)THEN60 

32 IFRf=CHR$ <133)THENPOKEN,32 :N=N-22:GOTO90 

34 IFRf=CHR$<136)THENPOKEN,32:N=N+22:GOTO90 

35 L=L+1:IFLCDTHEN30 

36 H=H-1 : 1=1—1 : J=J-1 : K=K-1 : L=0 

37 IF (H-7680)/22=I NT < <H-7680)/22)THEN100 

38 IF <I-7680 >/22=INT(<1-7680)/22)THEN100 
40 IF <J-7680)/22=I NT < <J-7680)/22)THEN100 
42 IF<K-7630)/22=INT<< K-7680)/22)THEN100 

44 P0KE36876,240 :POKEH+1,32 :POKE1 + 1,32:POKEJ+1,32 :POKEK+1,32 :POKEH,42 :POKE1,42 :P 
0KEJ, 42 : POKEK, 42 '• P0KE36876,0 
50 GOTO30 

60 FORM=200T0220:P0KE36376,M:POKEN+30720,2:POKEN+30720,1 :NEXT:P0KE36876,0 

62 IFH>NRNDH<N+22THEN72 

64 IFI>NRNDI<N+22THEN74 

66 IFJ>NfìNDJ<N+22THEN76 

68 IFK>NRNDK<N+22THEN78 

70 SC=SC-5 ; G0T082 

72 P0KE36877,160 :POKEH,102 :B=H:H=FNR<X):GOTO80 
74 P0KE36877,150 :POKEI,102 :B=I:I=FNR(X):GOTO80 
76 P0KE36877,180 :POKEJ,102 :B=J:J=FNR(X):GOTO80 
78 P0KE36877,190 :POKEK,102 : B=K:K=FNR(X> 

.80 SC=SC+10 :POKEB,32 : P0KE36877,0 

82 PRINT"«SS ■"PRINT"a*SCORE = " ; SC : IFSC>500THEND=5 

84 GOTO30 

90 IFN<7724THENN=7724 
92 IFN>8164THENN=8164 
94 POKEN,90 : GOTO30 

100 P0KE36877,220 :F0RC=38445T038885STEP22:POKEC,2 :NEXTC:FORC=1TO100 :NEXTC 
110 F0RC=38445T038835STEP22:POKEC,1 :NEXTC:P0KE36877,0 
120 PRINT" «ORME OVER" 

130 FORC=1TO1000 :NEXT:P0KE36379,27 

140 PRINT"n»WIL PUNTEGGIO FINfiLE E' " : PRINTSC : PRINT"SB0P" 

150 IFSC>TSTHENTS=SC 

160 PRINT"RECORD = ";TS 

170 PRI NT "KBZMOj IOGHI RNCORR ? < S/N ) " 

180 GETR# : IFR$="S"THEN10 
185 IFfi$<>"N"THEN180 
190 PRINT "35" : END 

200 P0KE36879,186 : PRINT"!" : PRINTTRB(3);DEFENDER **MW" 

210 PRINTTRB<6); 

235 PRINT"W«W PREMI UN TRSTO" 

240 GETX$ : IFX$-""THEN240 
250 GOTO10 


SIMBOLI GRRFICI VIC 20 

7Ì = SHIFT + CLR/HOME 
a = CLR/HOME 
« = CURSOR RIGHT 

Il = SHIFT + CURSOR RIGHT (CURSOR LEFT) 
f!l = CURSOR DOWN 

H = SHIFT + CURSOR DOWN (CURSOR UP> 


CODICE COLORI 


■ 

= 

CTRL 

+ 

1 

(BLfìCK) 

al 

= 

CTRL 

+ 

2 

CWHITE) 

« 

= 

CTRL 

+ 

•Zf 

(RED) 

k 

= 

CTRL 

+ 

4 

(CVflN) 

ri 

= 

CTRL 

+ 

5 

(PURPURE) 

lì 

= 

CTRL 

+ 

6 

(GREEN) 

n i 

k» 

= 

CTRL 

+ 

« 

(BLU) 

n 

= 

CTRL 

+ 

o 

(VELLOW) 

SI 

= 

CTRL 

+ 

9 

(REVERSE) 

■ 


CTRL 

+ 

0 

(NORMfìL) 


IO 











Zombie 


Sicuramente conoscerete Michael Jackson, la stella della Musica leggera contemporanea, recente- 
mente apparso al fianco di Roland Reagan in occasione della campagna per le elezioni presidenziali 
negli Stati Uniti d'America. Molti lettori sanno come Michael Jackson sia stato magistralmente diretto 
in un video musicale dal famoso John Landis, uno dei piu grandi registi del cinema americano. 

La parte che egli interpreta è quella di un giovane dei nostri tempi che camaleonticamente si trasforma 
spesso in uno "zombie"affamato divoratore di Break Dance. 

Perché non emulare queste imprese cinematografiche con un simpatico gioco implementato sul VIC 

20 ? 

Si tratta di sfuggire ad un gruppo di zombies che si aggirano in una landa desolata e che fanno cer¬ 
chio attorno a voi sempre piu da vicino. 

L'unico modo di sfuggire alla loro presa è quello di riuscire a farli cadere nelle fosse sparse sul terreno 
circostante oppure a farli scontrare. 

Fate attenzione: nell'impeto della fuga, potreste cadere nelle fosse, oppure, finire tra le braccia degli 
zombies. 

In tal caso, nota divertente del gioco, invece che essere divorati dagli zombies, sarete voi a divorarli, 
divenendo automaticamente capi della colonia di zombies. 


COMANDI 
W Alto 

X Basso 

A Sinistra 

D Destra 

Q,Z,E,C Movimenti in diagonale 


5 PGKE36879» 8 

10 PRINT'TWW --##SEOMBIEaNs#—" 

12 PRINT"?I*Ii UH ATTIMO..." 

15 GOTO2000 

20 DIMC<40),N<40>,M<40>,A<40> 

30 GOTQ2020 

40 P0KE36879,94 : 8=1 :PN=0 

50 PRINT" rr :F ORI = 1TQ5+S*5:C <I>=0 

60 M < I )=INT <PHD <.)#22>:N <I> = INT <RND<.> *22 > +1 : 1FM <I> = 11ANDN<I> = 12THEN60 
70 PQKE7630+M<I>+22*N<I>,0 :NEXTI 
72 P0KE7955.2 
75 FORI=1TQ40-INT<3/4> 

SO R=INT<RNB<. >#484> : IFPEEK<?702+R>O32THEN80 

90 PQKE7702+R,4 P0KE38422+R,0 :NEXTI 

100 X=ll : V=12 

130 GETA$ : IFA$=""THEN130 

135 POKE7680+X+22*V,32 

140 IFA$="fì"THENX=X-l 

141 IFA$="Q"THENX=X-l : V=V-1 

142 IFfì$="E"THENX=X+l : V=V-1 

143 IFA$="C"THENX=X+1 : V=V+1 

144 IFfì$="Z"THENX=X-l : V=V+1 

145 IFfì$="D"THENX=X+1 

146 IFfì$="W"THENV=V-l 

147 IFA$="X"THENV=V+1 

170 P=PEEK < 7680+X+22#V):IFP=4THEN500 
175 IFP=0OPP=1ORP=3THEN600 
180 POKE7680+X+22#V,2 : POKE38400+X+22#V>7 
130 FORI=1T05+S#5 : 1FC(I>=1THEN231 
195 POKE7680+M<I>+22*N<I>,32 

200 IFMCI »XTHENM( I >=M< I > -1 ■ IFACI K3THENFK I >=0 
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210 IFM<DO<THENI1< D=M<I>+1 : IFfì< I )<3THENfi< I)=1 
220 IFN<D<VTHENN< D=N<D+1 

230 IFN<D>VTHENN<D=NCD-1 

231 NEXTD FORI = 1T05+S*5:1FC <I ) = 1THEN240 

232 P=PEEK<7680+M<I)+22#N<D > 

233 IFP=4THEN400 

234 IFP=2THEN700 

235 IFP=0ORP=10RP=3THENR < D =3 

237 P0KE7680+M(I>+22*N<D/fi<I) : POKE38400+M<I)+22*N<D/2 
240 NEXTI : GOTO130 

400 C< D = 1 : FORV=15TO0STEP-1 : P0KE36876/220+V : P0KE36378/V : NEXTV : PN=PN+1 : C=C+1 
410 PRINT"WCOM= "5+S#5-C"Il PNT.= M PN ,, II S="S M II " : IFC=5+S*5THENS=S+1 : C=0 : GOTO50 
420 GOTO240 

500 FORV= 15TO0STEP-1 : P0KE36876/ 230+V : P0KE36878/ V : FORT= 1TO100 : NEXTT / V 
510 fi$= n k-*CT SEI NELLR FOSSfi k*-":GOTO710 

600 fi$= M k-*f<3EI IL CRF'O DEGLI k*-* ZOMBIE #-" 

610 GOTO710 

700 R$= M ^4!■**4i*^ì■1RNGIRTO^r*#***• , 

710 POKE7630+X+22#V/42 

712 FORV=15TO0STEP-1 :P0KE36877/140+V :P0KE36878/V : FORT=1TO100 : NEXTT/V :P0KE36877/0 
715 PRINT ,, ^f!W^4'»****#**#»*#*#*#»**** M ; R$; '• ******♦***#*#***##♦*##'* 

718 P0KE36879/8 :P0KE36376/0 :P0KE36869/240 

720 P0KE36873/15 'FORI = 1TO11 : RERDR : RERDB:P0KE36376/R : F0RT=1TOB*100 :NEXTT 
730 P0KE36376 / 0 : FORT= 1T025 •* NEXTT : NEXT I 
740 PR I NT " WBFUNTI = '*PN M SU " S " SCHERMI " 

750 IFPN>HTHENPRINT"?W UN NUOVO RECORD!!!! !7J":H=PN 
760 PRINT M M?ECORD="H"ZOMBIE" 

765 PRINT'"«SPREMI UN TRSTO... " 

766 GETR$ ; IFfi$=""THEN766 
770 PN=0:C=0:RESTORE:GOTO30 

2000 P0KE52/28:P0KE56/23:P0KE51/0CLR 

2010 FORI=0TO511^ P0KE7163+1/PEEK < 32768+1>:NEXT GOTO20 

2020 FORI=0TQ39:RERDJ:P0KE7163+1/J:NEXT:P0KE36869/255 :GOTO40 

2030 DRTR12/12/4.124/60/4/4/12 

2040 DRTR43/48/32/62/60/32/32/48 

2050 DRTR60/126/219/255/219/195.. 126/60 

2060 DRTR231/231/66/231/66/165/165/165 

2070 DRTR0/28/62/126/60/124/56/0 

2080 DRTR193/2/193/2.. 139/ 1 /193/2/200.2/196/1/193/2/189/ 1 /193/2/139/1/193/4 



J<? 










Data base 

farthMo brani musicali) 

Siete amanti della musica e magarì avete dischi e nastri raccolti alla rinfusa!! 

LIST propone questo programma che vi permetterà di inserire e ricercare fino a 130 brani, identificati dal 
nome dell'artista, dal titolo e dal codice di classificazione da voi assegnato. 

(max. 30 caratteri complessivi) 

STRUTTURA DEL PROGRAMMA 

20 - 200 Menù e scelta opzioni 

210 - 350 immissione nome, titolo, codice di classificazione 


360 f$(j) = stringa ordinata secondo il nome 

370 e$(j)=stringa ordinata secondo il titolo 

405-510 Sorting per nome) 

520 - 620 Sorting per titolo) 

630 - 660 Stampa secondo il nome 
670 - 700 Stampa secondo il titolo 
710 - 790 Ricerca con priorità del nome 
800 - 880 Ricerca con priorità del titolo 


VARIABILI 

a=opzione scelta 

a$=Nome dell'artista 
t$=titolo dell'opera 
c$=codice di classificazione 
f$(i)=a$+t$ + c$ 
e$(j)=t$ + a$+c$ 
j=numero degli item inseriti 

n$ = nome deìf'artista o titolo dell'opera (per la ricerca). 


1 REM 

2 REM 

3 REM * * 

4. REM * DRTRBRSE * 

5 REM * * 

6 REM 
? REM 
B REM 
9 REM 

10 CLS 

20 PRINT "* * » # * M E N U ' * 

****■• 

25 PRINT *'"1 _ NUOVO file" 

30 PRINT '**2 - Aggiungere nuov 

o ite»’ 


40 

PRINT 

’ "3 — 

St aspa 

elenco p 

r no>e" 




50 

PRINT 

' "4 - 

S t e»pa 

elenco p 

r ti 

tolo" 




60 

PRINT 

' "5 - 

Ri cerca 

per no» 

70 

PRINT 

' "6 - 

Ri cerca 

pe r ti t 

IO " 





60 

PRINT 

' "7 - 

Per archiviare" 

90 

PRINT 

' "S - 

Fi re proqra»»a" 

100 

INPUT 

a 



110 

CLS 




120 

IF a =1 

THEN 

GO SUB 

210 

130 

IF a =2 

THEN 

NEXT j 


140 

IF a =3 

THEN 

GO SU6 

630 

150 

IF a =4 

THEN 

GO SUE 

670 

160 

IF a =5 

THEN 

GO SUB 

710 

170 

IF a =6 

THEN 

GO SUB 

800 

160 

IF 3=7 

THEN 

SflUE "data" 

190 

IF a =8 

THEN 

STOP 



200 GO TO 10 

210 DIM f$H30,32) : DIM e$(130, 

32) 

220 POKE 23692,0 
230 FOR J =1 TO 130 CLS 
240 PRINT RT 0,0; INE 2, "Per tO 
mare al «enu'preiere *S‘ rri«a 
di introdurre nuovo »te»u" 

250 PRINT RT 6,0;"Nu»ero ite» 

", FLASH 1; J 
254- REM 

255 REM IMMISSIONE ORTI 

256 REM 

260 INPUT "Noie artista/cotposi 
tore 7 LINE a % 

270 IF a $ = ”Z” THEN GO TO 390 
260 PRINT ""Artista = ";a* 

290 INPUT ‘'Titolo opera *?***; L.I 
ME t % 

•300 PRINT '“Opera = ";t* 

‘ 310 INPUT "Codi ce/classi h cario 
ne? ", line c% 

320 PRINT '“Codice = ”,C* 

322 IF LEN <a$4t$K$) >30 THEN P 
RINT FLRSM 1;RT 15,0," Avete SUP 
e rato i 30 caratteri ripe 

tere i ' iRtìssione “: PRU5E 2 

00: FLRSH 0: CLS : GO TO 240 

325 PRUSE 50 _ 

33 0 PRINT RT 20,0," Premere §■> 
mRB se corretto, altrimenti u 

n qualsiasi tasto" 

340 INPUT LINE X% 

350 IF Z*<>"“ THEN GO TO 240 
360 LET f$Cj)sa$*"f"ft$4"*"fC$ 
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370 

LET 

e$(j.i = t % * ” * 

380 

NEXT J 

390 

CLS 


400 

PRINT RT 10,6; 

l; **Rt t end e re prego" 

4 01 

REM 


4 03 

REM 

F ORT INO 

1 O 3 

REM 


1 05 

LEI 

9=j: LET b= 

4 10 

LET 

Z = 1 

440 

LET 

b=Z 4l 

450 

IF 

b > 9 THEN LET 




INK l; FLASH 


IF 


>0 THEN 

4 55 IF 
460 

50 
4-70 
460 
490 
500 
510 
520 
550 
54 0 
550 
'O THEN 
r '6P IF 

5 70 
90 


GO TO 410 
9=0 THEN GO 
f % ( b ) < f % I Z t 


9 =9 -1 

TO 590 
THEN GO 


IF 9 


TO 4. 


TO 440 


LET z— Z ♦1: GO 
LET q$=f$cz* 

LET f % fz ) = f $ I b) 

LET f$fb)=qt 
GO TO 470 
LET a =• j :• LET b-0 
LET Z —1 
LET b=Z+l 

IF b > 9 THEN LET 9=0-1 
GO TO 530 

g =0 THFN CL5 : GO TO 20 
IF tilt) <e$(7< THEN GO TO 5 


IF g 


550 LET z —Z * 1 : GO TO 510 
590 LET q$=etlZ) 

500 LET e$fz)=e$(b) 

5J0 LET e$(b)=9$ 

620 GO TO 560 
630 FOR m = l TO % i 
640 LPRINT f*(») 

650 NE XT m 
660 RETURN 


670 

FOR m = 1 TO j 


660 

L»‘P IMT e 5 ( » » 


590 

NE ‘ T m 


700 

PETUPN . 


705 

REM 


706 

REM RICERCA 

PFR NOME 

707 

REM 


710 

PR JNT ••Immetter 

e nome artis 

t a *• * 

* 


720 

INPLrr LINE n* 

LET *=0: LET 


n=LEN n* 

730 FOR »=1 TO J 

740 IF f*(m, TO n) =n t THEN GO T 

O 770 

750 NEXT m 

760 IF K =0 THEN PRINT ""RrtiSt 
a non trovato'*: PAUSE 200: CLS 


RETIJRN 


n = r. *i 

7 '70 

PRINT * f % C •ì : 

LET 

7 75 

NEXT m 



780 

PAU5E 0 



790 

RETURN 



794 

REM 


TITOLO 

795 

REH RICERCO 

PER 

796 

REM 


t i to to'* ' ' 

800 

PRINT "ImeUi 

i l 

3 10 

INPUT LINE n* 

LET 

K=0: LET 

n=LEN n* 



820 

FOR m = 1 TO j 


THEN GO T 

830 

IF ef(K, TO n) 

=n $ 


O 060 

040 NEXT m 

850 IF K =0 THEN PPINT ""Titolo 
non trovato**: PAUSE 200: CLS 
RETURN 

860 PRINT 'eS(m): LET 
365 NEXT m 
870 PAUSE 0 
300 RETURN 
































ZX-81/16K 


\/ - 


; i , ••• ::*•••• ìHsu: 

!!! II! =!!:==: !!! 

[fùi; Hj $jj 


Mele 


Pronti con il cestino a raccogliere le mele che si staccano dall'albero, ma non fatele cadere in terra; altri¬ 
menti il gioco finisce! 


ISTRUZIONI 

TASTI:5=sinistra 
8 = destra 



1 

REM ”1 

MELE 


2 

LET V 

= 13 


3 

LET Z 

= 0 


IO 

PRINT 

RT 

O , IO 

20 

PRINT 

RT 

1,10 

30 

PRINT 

RT 

2 , IO 

40 

PRINT 

RT 

3, IO 

50 

PRINT 

RT 

4 , IO 

60 

PRINT 

RT 

5 , IO 

70 

PRINT 

RT 

e, io 

80 

PRINT 

RT 

7 , IO 

90 

PRINT 

RT 

5,10 

95 

PRINT 


£*0. 


OR f NT" 

HT 

21 , O 


113 

PRINT 

RT 

4,11;"*" 

120 

PRINT 

RT 

4,16, " * 

130 

PRINT 

RT 

3,IO, 

140 

PRINT 

RT 

3 ,17, -■»*' 

141 

PRINT 

RT 


142 

PRINT 

"■ 


143 

PRINT 



144 

PRINT 

> 


145 

PRINT 

!■ 


146 

PRINT 

% 


147 

PRINT 

% 


148 

PRINT 

% 


149 

PRINT 

%i 


150 

LET X 

=20 


151 

PRINT 

-1 


152 

PRINT 



153 

PRINT 

% 


154 

LET R 

=INT <RND*10+3> 


156 

157 

LET B = 10 

PRINT RT B,R; 

”»";RT 

B-l .Ri " 

153 

170 

LET e=e-»i 

IF INKEY % ="5“ 

THEN 

LET Y =Y - 

160 

IF INKEYJ=-6“ 

THEN 

LET Y*Y4 

165 

IF B=X AND R= 

Y+l THEN GOTO 


300 

Id6 IP B=X AND AsV+2 THEN GOTO 
300 

190 IP Y<1 THEN LET Y=V4l 
192 PRINT RT 19,8;" 


200 IP Y > 26 THEN LET Y =Y -1 
<2 05 IP e =21 THEN GOTO 4-00 
2 10 PRINT RT X , Y ; *' U ” 

220 GOTO 157 

300 LET Z =Z ♦5 _ 

305 PRINT RT O , O, '{stabili ";Z 
310 GOTO 154- 

4-00 CLS 

410 PRINT "HAI FATTO CADERE UNR 
MELh” 

411 PRINT "E IL CONTROINO TI HR 

SCOPERTO" 

413 PRINT 

415 PRINT 

420 PRINT 

430 PRINT 


“PUNTEGGIO 


; z 


UUOI GIGCRRE RNCORR? 


435 PRINT 
407 PRINT ” IS> 
440 IP INKEY»s"5 
450 IP INKEY*="N 
450 IP INKEYSO" 
470 GOTO 440 
500 CLS 
510 GOTO 1 

eoo cls 

510 PRINT RT 10, 


O IN> " 

- THEN GOTO 500 

- THEN GOTO 500 
" THEN GOTO 440 


io; 


520 STOP 
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TEXAS TI 99/4A 


• •• MMI.. 

Òsa 111 hshP 



Sulla spiaggia 


Un gruppo di ragazzacci ha deciso di rovinare la vostra rete da pesca stesa al sole. 

La difficoltà del gioco consiste nel parare, con abilità degna del grande Zoff, tutti gli oggetti scagliati 
contro la rete. 

Se la rete viene colpita si strappa, ma potrete ripararla velocemente, spostandovi in corrispondenza 
dello strappo e riducendolo premendo la barra spaziatrice presente sulla tastiera. 

Il gioco termina se non fate in tempo a ricucire la rete prima che venga colpita nuovamente nello stesso 
punto. 

VARIABILI USATE 

Y = Posizione verticale del sasso 

X = Posizione orizzontale del sasso 

NX = Riga di partenza sullo schermo del sasso 

PN = Punteggio 

DIR = Direzione dell'omino sullo schermo 

MOV = Tasto di controllo per il movimento del giocatore. 



100 CALL CLEAR 
110 CALL SCREEN(12) 

120 PRINT "**************#***********"8"* SULLA SPIAGGIA...!!! *" 
130 PRINT "**************************" 

140 PRINT issiis:*- VUOI LE ISTRUZIONI? "s" S/N" 

150 CALL KEY <0,K,S) 

160 IF S=0 THEN 150 

170 IF <K=115>+<K=83)THEN 180 ELSE 190 

180 GOSUEt 1160 

190 CALL CLEAR 

200 RANDOMIZE 

210 Y=INT<<32-2+1>*RND>+2 
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TEXAS TI 99/4A 


220 X*4 

230 NX-4 

240 PN*0 

250 PU*350 

260 H-2 

270 DIR*16 

280 CALL SCREEN(8) 

290 CALL CHAR(159,"18187E5A183C2466") 
300 CALL CHAR(151,"FFFFFFFFFFFFFFFF"> 
310 CALL CHAR(119,"FFC3A59999A5C3FF") 
320 CALL CHAR(150,"C3C3C3C3C3C3FFFF") 
330 CALL CHAR(143,"00183C7E7E3C1800") 
340 CALL CHAR(135,"185A7E18183C2466") 
350 CALL COLOR<16,5,1) 

360 CALL COLOR(15,13,1) 

370 CALL COLOR(14,9,1) 

380 CALL COLOR(11,15,1) 

390 FOR C0L=1 TO 8 
400 CALL COLOR(COL,16,1) 

410 NEXT COL 

420 CALL HCHAR(24,2,151,31) 

430 CALL COLOR(13,14,1) 

440 CALL HCHAR(H-1,2,159,31) 

450 CALL HCHAR(H,2,119,31) 

460 CALL HCHAR(23,DIR,135) 

470 CALL KEY(0,MQV,S) 

480 IF M0V=83 THEN 570 

490 IF M0V=68 THEN 510 

500 IF M0V=32 THEN 540 ELSE 610 

510 IF DIR=32 THEN 610 

520 DXRbDXR+1 

530 BOTO 590 

540 CALL HCHAR(24,DIR,151) 

550 CALL SOUND(70,-5,0) 

560 GOTO 610 

570 IF DIR*2 THEN 610 

580 DIR=DIR-1 

590 CALL HCHAR(23,DIR-1,32,3) 

600 CALL HCHAR(23,DIR,135) 

610 GOTO 620 
620 X=X+1 

630 IF X*23 THEN 670 
640 CALL VCHAR(X — 1,Y,32) 

650 CALL VCHAR(X,Y,143) 


660 GOTO 470 

670 CALL GCHAR(X,Y,F > 

680 IF F=135 THEN 690 ELSE 770 
690 CALL VCHAR(X-l,Y,32) 

700 CALL SOUND(200,3000,0,6000,2) 

710 PN=PN+50 

720 IF PN<PU THEN 740 

730 GOSUB 1070 

740 Y= I NT ( ( 32-24-1 ) *RND ) 4-2 

750 X=»NX 

760 GOTO 470 

770 CALL GCHAR (X4-1 ,Y,F) 

780 IF F=151 THEN 790 ELSE 880 
790 CALL VCHAR(X-1,Y,32) 

800 CALL SOUND(100,120,1,120,1) 

810 PN=PN4-10 

820 IF PN<PU THEN 840 

830 GOSUB 1070 

840 CALL HCHAR (X4-1 f Y, 150) 

850 Y=INT( (32-24-1)*RND) 4-2 

860 X=NX 

870 GOTO 470 

880 CALL SOUND(250,-2,3) 

890 FOR L00P=200 TO 1500 STEP 100 
900 CALL SOUND(-100,LOOP,1) 

910 NEXT LOOP 

920 FOR L00P=1500 TO 200 STEP -100 
930 CALL SOUND(-100,LOOP,1) 

940 NEXT LOOP 

950 CALL CLEAR 

960 PRINT "HAI PERSO!!!...” 

970 PRINT "PUNTEGGIO :";PN::x 

980 PRINT "VUOI GIOCARE ANCORA ?";" S /N" 

990 CALL KEY(0,K,S) 

1000 IF S=0 THEN 990 

1010 IF (K=83) 4- (K=l 15) THEN 190 ELSE1020 

1020 END 

1030 T=1 

1040 T=T4-1 

1050 GOSUB 1060 

1060 GOTO 1040 

1070 PU=PU4-400 

1080 IF H=14 THEN 1150 

1090 H=H4-1 


1100 NX*NX4-1 

1110 CALL HCHAR(H-l,1,32,32) 

1120 CALL HCHAR(H,2,119,31) 

1130 CALL HCHAR(H-2,1,32,32) 

1140 CALL HCHARCH-l,2,159,31) 

1150 RETURN 
1160 CALL CLEAR 

1170 PRINT "TASTI DA USARE x"xi"S = MUOVE A SINISTRA."»i "D = MUOVE A DESTRA."li* 
1180 PRINT "SE SI MUOVE L'OMINO SUI":x"BUCHI E SI PREME <SPACE>"si"IL BUCO SI RI 
EMPIE." 

1190 PRINT : :s 

1200 PRINT "TENERE PREMUTO IL TASTO":"<ALPHA LOCK> PER GIOCARE."xx 
1210 PRINT "...BUONA FORTUNA!!!"tx:"PREMI UN TASTO PER INIZIARE" 

1220 CALL KEY(0,K,S) 

1230 IF S=0 THEN 1220 
1240 CALL CLEAR 
1250 RETURN 
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ORIC 1 



Tabella 


Questo programma permette, a chi ne avesse la necessità, di stampare dei Listini Prezzi impostando la 
descrizione dell'articolo ed il suo prezzo. 

STRUTTURA 

70 - dimensionamento delle stringhe 

80 - input intestazione tabella 

90 - input numero degli elementi che compongono la tabella 

100 - 130 loop inserimento degli elementi 
150 - 230 stampa 

VARIABILI 

A$ (I) - elementi 
b$ (I) - valori 
1$ - intestazioni 


tx***x**xx«x*x****xx«***************** 

MENU DEL GIORNO 15/4/1984 


SPAGHETTI.3.500 

LASAGNE.4.800 

FETTUCC INE.4.300 

LOMBATA.12.000 

ABBACCHIO.11.500 

TROTE.15.000 

FORMAGGIO.4.000 

FRUTTA.2. 500 


X************************************* 


10 REM ************* 

20 REM ** TABELLA ** 

30 REM ** ANTONIO ** 

40 REM ** LIST 84 ** 

50 REM ************* 

60 DIMA*(20),B$C 20 3 :CLS 

70 H$=". 

Il 

80 INPUT " INTESTAZIONE DELLA TABELLA " ; 

I* 

90 INPUT " NUMERO DEGLI ELEMENTI 
N 

100 FOR 1=1 T0 N 

110 PRINT:PRINT"ElEMENTO N. "Si;:INPUT " 

" ;a*cid 

120 PRINT" UALORE ";:INPUT" " ;B* 

A CI3 

130 NEXT I 

140 CLS 


150 FORA=1 TO 38:PR1NT"*";:LPRINT"*";:NE 
XTA 

160 PRINT :PR1NT SPCCC38-LENC1 $))/2) ; I# :P 
RINT 

170 LPRINT :LPRINTSPCCC38-LENCI$))/2);lt: 
LPRINT 

180 F0RA=1T038:PRINT"*";:NEXTA:PRINT 
190 FOR 1=1 TO N 

200 R*=A*CI)+RIGHT*CH$+B*CI3,38-LENCA*(I 
3)3 

210 PRINT RS:LPRINTR$ 

220 NEXT I 

230 FOR A=1 T0 38 :PRINT"*" ; :LPRINT"*";:N 
EXTA 
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CBM64 


Quark 


Siete stati inviati in missione segreta dalla Federazione InterStellare. 

Improvvisamente la vostra navetta spaziale comincia ad avere dei problemi: perde carburante! Do¬ 
vete tentare un atterraggio di fortuna, ma purtroppo il pianeta a voi piu vicino è QUARK che presenta 
la "particolarità"di essere formato da Anti-Materia. 

Durante la discesa, resa difficile dalla fortissima forza di gravità, dovete dunque fare molta attenzio¬ 
ne a non sfiorare ciò che vi circonda perché altrimenti potreste disintegrarvi . 

Buon atterraggio! 

Le istruzioni sono contenute nel listato. 


0 FRI NT "IT 

1 PRINT"lQ IJ A R K" 

2 FRI NT"!-" 

3 G0SUB9030 


5 P0KE54296,0•P0KE53281,2 : P0KE542 76 ,0 

6 RESTURE : CLP 
10 FRI NT"ri" 

20 FRI NT "li-! U A R K" 

21 FRI NT"!-" 

30 V=53248 

31 POKEV+16,0 
40 POKE2040,13 

45 FORN=0TG62 READÙ-P0KE832+N,Q:NEXTN 

50 DATA0,255,0,1,219,128,3,219,192,7,231,224,15,25,240 

53 POKEV+21,1 

55 DATAI23,0,222,79,0,242,75,0,210,71,255,226,226,126,71,161,90,133 

60 DPTR160,231,5,1,231,1 28 ,1,60,128,2,24,64,4,60,32,8,1 26 ,16 

65 DRTfìl12,255,14,241,255,143,240,0,15,96,0,6 

70 POKEV+23,1 : FOKEV+29,1 

88 FOKEV,130•POKEV+1,75 

81 FR1NT ^ FRINT FRINT :PRINT•PRINT•FRINT 

90 PRINT"k. "FI'«MOTORI FRINC.-"F3"=1/2 MOTORI" 

100 FRINT" 'Z"«SINISTRA - "X"«DESTRA" 

101 FRINT"3 NON COLPIRE CIO" CHE TI CIRCONDA" 

102 FRINT" SUPERFICIE ATTERRAGGIO 

103 FRINT 

104 FRINT"kSFICORDR : S*IU" L'RTTERAGGIO E" DIFFICILE" 

105 FRINT"E BEN RIUSCITO, PIU" PUNTI SI GUADAGNANO" 

110 FRI NT "fi PREMERE UN TASTO PER INIZIARE" 

120 GETAf : IFAf=""THEN120 

135 FOKEV+21,0 

136 FUKEV+23,1 :FOKEV+29,1 
140 FRI NT "IT 1 

150 FORV=1T02:FRINT :NEXTV 
155 FR I NT " iì" SPC < 16 ) " -" 


159 

160 
170 
180 
190 
200 
210 
220 
230 
24ù 
25U 
260 
270 
280 
290 
300 
310 
320 


FRINT" 
FRINT" 
FRINT" 
FRINT" 
FRINT" 
FRINT" 
FRINT" 
FRINT" 
FRINT" 
FRINT" 
FRINT" 
FRI NT" 
FRINT" 
FRINT" 
FRINT" 
FRINT" 
FRINT" 
FRINT" 


Si"SPC< 16)"/ V 

sì/— vspcaov 

\"SPC<9>"/ 
\"SPC <8VI 
\"SPC<7>" 
\"SPC(5) 
I" SFC < 4 > 
rspc<4> 
rspc<4> 

/"SPC<4> 
/"SFC< 5 >" 
/"SPC<6> "I 
/"SFC <5>" - 
/"SPC(.6) " . 

I "SPC<6 >" I 
/"SPC<6>" I 
"SPC(7>" 

“\ __ /" 


\" SPC <4 >"^"SPC < 5 >"r\ 
rSPC<4>" I I"SPC<5>"I / 
/"SPC <4}" I I "SPC(5 >"II 
I I "SPC<5> "I I 

, V"SPC<11>"l"SPC<5>"l \ 
"/ M SPC< 12> " I "SPC<50 "I l 
"I "SPC< 12>" I "SPC<5> "I I 

" I " SPC < 7 > " .- 1 " SPC < 5 > " I 

"I “SFC<7>" l"SPC<10>"l I 
I "SPC < 7 >"/"SPC<10>" I I 


"SPC <6 >"/* SPC < 10)" . 
"SPC<7)"I "SFC<9)"/ 

"SPC<6) "I "SPC<5> " r- 
"SPCC6)"I "SPC<5>" I 
"SPC 

spc a8>" i_i" 



i 


ii 


i 


i" 

i" 

i" 
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CBM64 



ùjii:! 

::::::: 


ifi 


321 FRINT : FRINT 
•330 F=700 : GR=0 

340 X1=24 : V1=58 :FOKEV,X1 :POKEV+1,V1 
350 PQKEV+23,0 : POKEV+29,0 

360 PQKEV+21,1 

361 GOSUB370=G0T0361 

370 IFV1058RNDPEEK < V+31> = 1THEN431 

371 IFF<0THEN431 

372 IFVK2THEN431 
3S0 POKE54276,0 

390 IFPEEK<197)=4THENGR=GR-.5•F=F-12 :GOSUB9000 
400 IFPEEK<197)=5THENGR=GR-.25•F=F-7:GOSUB9000 
410 IFPEEK<197) = 12THENXl=Xl-3 : F*F-1 

420 IFPEEK<197)=23THENX1=X1+3 : F=F-1 

421 LETGR=GR+.1 

425 LETY1=V1+GR 

426 IFX1>255THENGOSUB5000 

427 IFXK0THENGOSUB5030 

428 IFV1<=4THEN431 

430 POKEV/X1 : POKEV+1,VI :GOTO440 

431 IFX1=87fiNDV1>=202THENP=25:GOTO7000 

432 IFX1 = 192RNDV1>=98THENP=10 :GOTO7000 

433 IFX1=192RNBV1>=206THENP=40:GOTO7000 

434 IFX1>=44RNDY1>=200RNDPEEK<V+16) = 1THENP=15 : GOTO7000 

435 GOTO8000 

440 PRINT'TUFUEL : ■■■■■l'SF 

450 RETURN 

4445 IFPEEK < V+27) = 1THEN8000 
5000 LETX1=X1-255 

5010 POKEV+16,1 

5011 RETURN 

5G30 IFX<0THENX=X+255 : POKEV+16,0 : RETURN 

7000 PRINT"3" ■ P0KEV+21,O 

7001 IFGR>1THENP0KE54296,0 

7O10 IFGR>1THENPRINT"iRTTERRRGGI0 TROPPO BRUSCO" 

7020 IFORMTHENPRINT"TI SEI FERITO" 

7030 IFGR>1THENPRINT"RTTENZIONE ! ! !" 

7041 IFGR>1THENG0TQ8102 

7042 PRINT"kBRftVO!RTTERRRGG10 PERFETTO !" 

7043 IFGR<=0THENRG=10 

7044 IFGR<=.2RNDGR>0THENRG=9 

7045 IFGR>=.3THENRG=7 

7046 IFGR>=.7THENRG=3 

7047 IFGR>=.8THENRG=1 

7049 PX=RG*P+ < RND < 0>*5 ) +1 : P=PX 

7050 P0KE54296,15 

7051 PQKE54277,9 : P0KE54276, 33 
7059 FORT =1TO30 NEXT 

7065 RERBHF 

7066 RERDLF 

7077 IFLF=-1THENP0KE54273,O POKE54272,0 :GQTO7081 

7078 P0KE54273,HF:P0KE54272,LF 

7080 P0KE54276,0 :GOTO7051 

7081 FORC=lTO10 
7033 PRINT" 

7085 PRINT"TIUTTERRRGGIO BUONO SPUNTIP,"" 

7037 FORV=1TO100 NEXTV•NEXTC : G0T0L08102 

7100 DRTR22,227,25,177,28,214,22,227,19,63,22,227,28,214,22,227,19,63 

7111 BRTR22,227,28,214,33,126,38,126,36,85,34,75 

7112 BRTR22,227,25,177,23,214,22,227,19,63,22,227,23,214,22,227,19,63 

7113 DRTR22,227,28,214,38,126,38,126,36,85,34,75,-1,-1 
8000 P0KE54296,15 

8050 F0RVV=1T02 
3051 FORV=1TO20 

8065 P0KE53231,0 :P0KE53281,1 :P0KE53281,0 

8069 NEXTV 

8070 P0KE54296,15 :P0KE54277,17 :P0KE54272,1 :P0KE54276,129 
8072 P0KE54273,< 3#RND<0))+5 



ED 
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8082 POKEV+23,1•FORX=1TO300:P0KE54278,32 NEXT:POKEV+28,0 
3083 NEXTVV 

8083 POKEV+21,0 

3086 P0KE54276,0 :P0KE54277 , 0 
3037 P0KE53231,2 
3102 PRINT 

8103 FRINT"VUOI GIOCARE flNCORfi? S/N" 

8104 POKE198,0 
8110 INPUTfì* 

3120 FOPC=1TOLEN(Af> : IFMID$<A$,C)*"S"THENRUN 
8121 NEXTC 

8130 PRINT"RLLORft CIRO ! ! !" END 

9000 IFPEEKC197)=4THEND=15 

9001 IFPEEK<197 > =5THEND=10 

9006 P0KE54296,D•P0KE54277,9 P0KE54278,128 

9007 POKE54276■129 :P0KE54273,6 :P0KE54272,13 
9015 RETURN 

9030 PRINT" SLR FEDERAZIONE INTERSTELLARE TI HA AF - FIDATO UNA MISSIONE" 
9035 PRINT"IMPROVVISAMENTE LA TUA NAVETTA COMINCIA AD AVERE DEI PROBLEMI." 
9040 PRINT"DEVI TENTARE UH ATTERRAGGIO DI FORTUNA SUL PIANETA QUARK" 

9050 PRINT"LE DIFFICOLTA' SONO PERO" MOLTE 1 " 

9060 PRINT "AHI.SCI SONO POCHISSIME RADURE" 

9070 PRINT"flUZ.fflLA FORZA DI GRAVITA' E" FORTE" 

9080 PRINT"flìi3. 'SIL CARBURANTE STA ' PER FINIRE" 

9O90 PRINT "*»4. SIDEI ATTERRARE USANDO 1/2 MOTORI" 

9100 PRINT "015. SCIO" CHE TI CIRCONDA E' ANTIMATERIA" 

9110 PRINT"E QUINDI DEVI FARE MOLTA ATTENZIONE" 

9111 INPUT" PkFREMI ' RETURN'",Hf RETURN 


Interrogazione di chimica 


Con questo programma il vostro Commodore 64 diventerà un paziente professore di chimica, che ve¬ 
rificherà il vostro grado di conoscenza della tavola periodica degli elementi, valutandovi ed espri¬ 
mendo il suo giudizio al termine di ogni interrogazione. 

All'inizio viene evidenziato un menù che permette di scegliere tra tre livelli di difficoltà: 

1. elementi molto comuni e relativamente facili; 

2. elementi più difficili da ricordare; 

3. tutti gli elementi conosciuti! 

Dal punto di vista didattico è importante notare che se la risposta fornita è errata, il computer, oltre ad 
evidenziare la risposta esatta, ripropone la domanda per verificare l'apprendimento della nozione. 

È ovvio che i lettori interessati potranno estendere l'uso di questo programma anche ad altre materie, 
mantenendo il corpo centrale e modificando solo l'intestazione (copertina e subroutine 1000) e le 
stringhe contenute nei DA TA. 


STRUTTURA PROGRAMMA 
Linee 

20- 60 stampa copertina 

70- 80 stringhe per stampa intestazione della pagina video 

90- 190 menù: scelta opzioni 
200- 360 programma principale: interrogazione 
370- 389 calcolo punteggio 
390- 430 stampa punteggio 
440- 490 richiesta altra interrogazione 
498- 670 DATA 

998-1000 subroutine per stampa intestazione pagina video 
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:H«s: mf 
: : :: : : ; Hi 

•iììlfj Ili 


VARIABILI 

SS: 

E$ : 

ND: 

N%: 

R$: 

RR$: 

T/S: 

T$, L$: 


simbolo 

elemento 

numero elementi scelti 
numero domande 
risposta 

elemento chiesto 
contatori punteggio 
punteggio 

stringhe per stampa intestazione pagina video 






1 REM ****♦♦♦♦♦*♦♦♦*♦♦***♦ ****♦♦**.*♦ 


2 REM *** *** 

3 REM *** INI ERROGAZ I Ut IL CHIMICA *** 

4 REM *** *## 

5 REM **# DI MAURO CIFANI *** 

6 REM *** *** 

7 REM *** *** 

3 REM *** **.* 

9 REM *** *** 


1G REM#*##********************♦ ***** 

11 : 

20 REM ***STflMPR COPERTINA *** 

21 : 

30 PRINT"NTERROGRZIONE CHIMICAI" 

40 PRINT"«pMpIpMpIpFER CONTINUARE PREMI UN TASTO" 

50 OETAT:TFAT=""THEN50 

60 POKE53280•0 P0KE53281,0 PRT MTCHPT <14 • DIMST C 104 >,ET<104 > 

70 TT=“!>M***M»I:*,NTERROGhZIONL “NIMICA!!" 

80 LT="-" 

89 : 

30 REM ***VIDEATA SPELTE*** 

91 : 

100 GQSUB1000 • PR 11 n ' ’ 3 pMpJp! pIpMp* » » fc M13 C ni ~1 .EMENTI “OMUNI " 

110 PRIHT ,, MMW«»MMiiar2]» TEMPII PI .NCONSUETI " 

120 primi" swpipmwiar si» lem tu r i ulto -irei ci li" 

130 PRIMI "?»WP*»»**»iac I" •CEOLi" 

140 GETAf l FHf = ""THE!1140 

150 IFVAL( AT ><1 ORVAI • A t >>30RVAL•NT>=U f HE N140 
1 60 ONVRL < A t •> 00 TU 1 7u, 1 SO . 130 

170 FORI = 1T045 • READST •: I >, ET •: I ;• NEXT ND=45 GOT 0200 
1SO FORI = 1T062 READSf < 1>,ET U ■ IJEXT : ND-62 G0T0200 
J 30 rORI = lrO103 READsT' I>,Ft<I • 'NEXT = ND*103 

200 GOSUB1000 ^ PR I NT " ìIpIp[PIP[p(pWP*I IRMI E DOMANDE VUOI < MAX " ; ND INPUTNX 

210 PRINT"«iPMiflPWPWPWPlrWPlPLlSFONDI SCRIVENDO SEMPRE IN MINUSCOLO" 

220 PRI NT "E BATTENDO [_T ,■-/] AL TERMINE" 

230 PRINT"PlMWpnER PROSEGUIRE PREMI UN TASTO" 

240 OETAT IFA$=""THEN240 
243 •* 

250 REM ♦♦*INIZIO INTERROGAZIONE*** 

251 : 

260 S=0 FORNITONE T=0 : H=I NTvND*RND < 1 > +1 > DT=Sf <A • RRT-ET'-A> 

270 GOSUB 1000 • PRINT"cH!IpIpìpIpIp*IJALE ELEMENTO HA IL SEGUENTE SIMBOLO'3", DT, 

280 INPUTPT : IFRTORRTTHEN3Ó0 

290 S=S+<2-T> • PRINT" ?MSI -t*T, "MIIH ■" : G0T0340 

30O T=T+1 ; IFTO1THEN320 

310 PRINT "m 0,PROVA ANCORA..." FORI=1TO300O NEXT G0T0270 
320 PRINT"a 0,PECCATO,EPA ■";RRT 

330 T=2 PRINT" MM*EDIAMO SE I IRI CAPITO..." FORI = 1TO3000:NEXT G0T0270 
340 PRINT"ciPWPlPMPlPlPMPlPlPlPlPlPlPMPrER PROSEGUIRE PREMI UN TASTO" 
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350 GETR$IFfi*=""THEN350 
360 DT=""RR*="" NEXTM 

369 : 

370 REM ♦««CALCOLO PUNTEGGI0««« 

371 

380 ? 1 =S/<2«N*;> ^ P= I NT <S1 « 100+. 5 > 

389 : 

390 REM «««STAMPA PUNTEGGI0««« 

391 

40Ù GOSUB100O - PRI NT " cMdeWi'M_A TUA PREPARAZI ONE E ' AL " ; P ; "X " 

410 IFPC40THENPPINT "m ON SE 1 SIJFFICIENTE,DEVI RIPASSARE' M 

420 I FP>=40ANBP<30THENPR I NT " I NELLA MED IA. POTRESTI MI GL I ORARE ! " 

430 I FP>=80THENPR I NT " «fi*E I UN FENOMENO ! I FAVO ' " 

439 : 

440 REM ««OPZIONE ALTRA INTERPOGAZIONE«« 

441 

450 PR I NT " TRA INTERROGAZI ONE < S/N>?" 

460 GETAT IFAf=""THEN460 

470 IFAf="S"THENRESTURE CO1010U 

480 IFRtO ,, N"THI N460 

490 POKE53280•254 POI £53281,246- PRINT"H":PRINTCHR$<142> : END 

497 : 

498 REM «««DATA SIMBOLI ED ELEMENTI««« 

499 : 

500 DATA"*L",ALLUMINIO,"*G",ARGENTO,"t",ARGON,"tS",ARSENICO,,AZOTO 
505 DATA"IA",DARIO 

510 DATA"IE",BERILLI0,"II",BISMUTO,"I",BORO, M IR",BROMO,"“D",CADM10,"“A",CALO10 
520 DATA" - ".CARBONIO. "“S" ,CESIO, "HL* ,CLORO,"“O".COBALTO, "rR" ,CROMO• " IE",ELIO 
530 DAT A " -E M , FERRO, FLUORO, "T, FOSFORO, " I", IDROGENO, IODIO, "LI ", LITIO 

540 DATA " \G " ,MAGNESIO," \N" ,MANGANESE, " IO " ,MERCUR 1 0, "/E" ,NEON, " /l " , NICHEL 
545 DATA " !~" , OSSI GENO 

550 DATA"tlJ", ORO, " ~IP", PIOMBO -""11", PLATINO, "" , POTASS10, "-A", PAD10, "“U", RAME 
555 DATA"«E",SELENIO 

560 DflTA"tI",SILICIO, "/fl",SODIO, ,ZOLFO,"tN",STAGNO,"tR",STRONZIO 
565 DATA"II",TITANIO 

570 DATA" ,",URAI \ 10,"«N",ZINCOCERIO,"-M".FERMIO," I A",GALL10,"I E",GERMAN10 
580 DAT A " -.R", IRIDIO, "-'R ", KRIPTO, "LH", L ANTAN IO," \0 ", MOLIBDENO, " /D ", NEODIM10 
585 DATH'TS".OSMIO - 

590 DATA"li",FALL ADIO, "1J" , PLUTONIO, " I L", TALLIO, "O", TUNGSTENO, "X' r , VANADIO 
595 DATA"tE",XENON 

600 DATA"«R",ZIRCONIO, " IF" , AFNIO, "tM" , AMERICIO, "tB", ANTIMONIO, "tT**, ASTATO 
605 DAT A"tC",ATTIN10 

610 DATA " IK ", BERK ELIO, "“F", C AL I FORM IO," ~M ", CUR IO," -r 1 ", DISPROS10, " “S ", EINSTEN10 
620 DATA " ~R ", ERE IO," ~U ", EUROP10, " _R ", FRANC10, " I D", GADOLINI 0, " -, N", IND10 
625 DATA" IB",ITTERBIO 

638 DATA" I", ITTRIO, "LU U ,LUTEZIO, “MT ,MENDELEVIO, "/P 1 ',NETTUNIO, M /B",NIOBIO 
635 DAT A", a ;"..NOBEL IO 

640 DAT A " IO*', OLM10, " Tj ••. POLON10, " " , PRASEODIMIO, "TI", PROMETEO 

645 DATA" Tl ",PROTOATTIN10 

650 DATA"_N",RADON,"-E",PENI0,"-H",RODI0,"-B",RUBIDI0,"-U",RUTENIO,"«M",SAMARI0 
660 DATA"tC",SCANDIO,"I A",TANTALIO,"I E",TELLURIO,"I C",TECNETO,"IB",TERBIO 
670 DATA"IH",TOP10," I M", TUL10,"LW",LAWRENZ10 
997 

993 REM ♦««SUBR. STAMPA INTESTAZIONE#«« 

999 : 

1000 PRINT"n" PRINTTt PRINTLf RETURN 


?3 
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::: 

SH 


Azienda agricola 


Vi è stata affidata la gestione di una grande azienda agricola: il mandato dura 5 anni, ma se vi sarete 
mostrati capaci di migliorarne le colture e la gestione potrà esservi ulteriormente rinnovato. 

Avete 2000 ettari di terreno.... analizzate attentamente la situazione.... cosa conviene di più?.... ven¬ 
dere terreno all'industria straniera??? Può darsi, ma ciò causerà sicuramente una massiccia immigra¬ 
zione di lavoratori stranieri oltre che determinare il pericolo di un inquinamento che potrebbe dan¬ 
neggiare le coltivazioni. 

E la paga ai contadini.... è adeguata???... forse si dovrebbe fare in modo di incrementare il turismo 
nella zonali! 

Valutate tutto con attenzione, decidete per il meglio... perché se sbagliate... II! 

ettari di terreno 
numero dei contadini 
numero dei lavoratori stranieri 
prezzo di vendita per un ettaro di terreno 
costo per la coltivazione di un ettaro di terreno 
patrimonio posseduto 
spesa per i contadini 

ettari di terreno che si intendono coltivare 
investimento per il controllo dell'Inquinamento 
grado di inquinamento 
numero dei turisti 

numero delle persone che muoiono per fame 
numero delle persone che muoiono a causa dell'inquinamento 
numero dei contadini che lavorano la terra 


d 

b 

c 

w 

V 

a 


cr 

tr 

st 

po 

np 


1 REM ** 

2 REM * 

3 REM * 

4 REM * 

5 REM * 

6 REM * 

7 REM * 

8 REM * 

9 REM * 
10 REM ** 
20 REM 

30 REM 
100 GO SUB 
110 GG SUB 
120 EOR y = 
130 GO SUB 
j SUB 1500: 
14-0 INPUT 
Z $ : IF f l = 
PRINT •’ Coi» 
tra gestion 

!. Dunque 

Nato ne u ' i 
nm . R u G 
REMI ENTER" 
150 CL5 
•-< o r laùtnto 
"i H fi fi t h r e 

395 REM 

997 REM 

998 REM 

999 REM 

1000 REM 

1001 PEM 


********************* 

KÌN&DOM! 

* 

* 

LIST 1984 * 

* 

********************* 


1000 : 
20G0 
1 TO 5 
2500! 
GO SUB 
" PREMI 
0 THEN 
pliment 
e ha a v 
5 i e te 
ncarico 
URI* 

, L INE 
PRINT " 
vi ha 

ma tur3. 


GG SUB 1500 


GO SUB 
4500 
ENTER 
NEXT y: 

i ! « !. 

u to sue 
stato r 
per al 
!!•'*: I 
Z%: GO 

Il tfù£ 
condot 
-: STOP 


4-G0O G 

LINE 
CLS : 
La vos 
cesso ! 
iconfer 
tri S a 
NPUT ”P 
TO 120 
t f ù CO iti 

tc ad u 


************** 

* * 

* GRfiF ICfl * 

* * 

1G02 REM i*lHf*i**f*fFt 

1003 REM 

1004 REM 

1005 REM _ ___ _ 

1010 DFiTfi 68,76,95,255 . ^55 . it o / ^ 
SS,255 

102© DATA 24- . 44 , 124- .. 60,24 2o .. 56 , 


89,156,24,40.72.140.65.i9u,12 
1030 ORTO 131,224,21,7,7,24,£24, 
131.126,70,47,255,255,47,70,126 
1040 DflT R 0,0,0,0,0,0,36,126 
1050 DfiJPi 24, 153,219,90,90.255,2 

Ì060 5 RESTORE 1000: POR n=0 TO 6: 
FOR n» =0 TO 7 

3070 READ a: POKE USR CHR$ <57tn 

) t-m , a : NEXT m NEXT n 

1080 LET a$ = CHR$ 147 fCHR % 146*" 

1090 DIM b$ (2.2) : LET b$ll) =CriR^ 
145: LET b$(£)=CHR$'(146) 


1100 

DRTR 

0,0, 

G , 0,0,0 

,0 : RERD 

..din, 

p t , S t ,po, 

np , t r 


ilio 

RETURN 



1496 

REM 

• 



3 497 

REM 




1493 

REM 

***************** 

1499 

REM 

* 


* 

1500 

REM 

* 

DISPLAY 

* 

1501 

REM 

* 


* 

1502 

REM 

***************** 

1503 

REM 




1504 

REM 




1505 

REM 




1510 

PRPER 0: 

INK 7: 

E.RIGMT 1 


ORDER 0. CLS 

1520 PRINT RT 0,12, PAPER £ ; " KI 
NC-DOM ” 

1530 FOR n =-6 TO 6 STEP 2’ LET n 
1=ABS n 

1540 FOR Dì =n TO n+1: PRINT RT 9 + 
Oi ,8+nl, 

1550 FOR p=l TO ie-2*nl. PRINT ; 

PRPER l; *• **; : NEXT P 

1560 NEXT ih : NEXT r. 

1570 IF in=0 THEN GO TO 1630 
1580 PRINT RT 90,0,"L'INDUSTRIA 
RUANZR. . : IF diri THEN PRINT " 

SEMPRE PIU'*’; 
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BEEP .5,30: PR 
( in/25) +1: LET 


FOR f=D TO 1 


159w HRINT TR6 0: 

USE 50: LET p=INT 
p 1 = INT (p/10) 

1600 LET p=p-10tpl 
1610 FOR q=0 TO pi: 

0*(q<pl) +p*(q=pl) 

1620 PRINT RT 6+2*q,16*r; PRPER 
1 ; INK 6;CHR$ 144.. BEEP .2,. r+10f 
q: NEXT C : NEXT q 

1630 PRUSE 25: IF din=0 THEN GO 
TO 1690 

1640 PRINT RT 20,0; M ..IMMIGRANO 
LAVORATORI 5TRANIERI",TRE 0: BEE 
P .5,30: PRUSE 50 
1650 LET p = INT (din/20) fi 
1660 IF p>6 THEN LET P=6 
1670 FOR n =1 TO P FOR «=30 TO 1 
l>n STEP -1: FOR f = l TO 2: PRINT 
RT 12 + r,m; INK 3; PRPER 8; b* ( r) 
1680 NEXT r: BEEP 0.05 , M *2 *n : NE 
XT m: PRUSE 30 : NEXT n 
1690 PRUSE 25 IF SUpo=0 THEN G 
O TO 1780 

1700 IF £t=0 THEN GO TO 1720 
1710 PRINT RT 20,0;St;” PERSONE 
MUOIONO DI FAME";TAB 0: BEEP .5, 
30 : PRUSE 100 

1720 IF po=0 THEN GO TO 174© 

1730 PRINT RT 20,0;po;" MUOIONO 
PER L'INOUINAMENTO";TAB 0: BEEP 
.5,30: PRUSE 50 

1740 LET p = INT ( (Stipo) /25) fi: I 
F p >6 THEN LET p=6 

1750 FOR n =1 TO p: FOR »=8 TO 7 
STEP -1: FOR r=1 TO 2: PRINT RT 
10 *r , » ; INK 4;fe*fr>: NEXT r: BEE 
P . 3,2*»-2*n: NEXT ■ 

1760 PRUSE 15: PRINT RT 11,7, 

: PRINT RT 12.7; INK 4; a*: BEEP 
.1,0: PRUSE 15: FOR a» =7 TO 0 STE 
p _i : PRINT RT 12, hi ; INK 4; a*: B 
EEP .05,2** -2 *n : NEXT et: PRINT R 
r 12,0," 

1770 NEXT n 

1780 PRUSE 25: IF pU0 THEN GO T 
0 1860 

1790 PRINT RT 20,0, "IL TERRENO U 

"jTAB 0: BEEP 


LET pllsIMT (pi 


IENE COLTIURTÙ 
.5,30: PRUSE 50: 

1800 + LET p12=INT (p11/10): LET P 
l3=Pl1-10*P12 

1310 FOR n =0 TO pi 2: FOR r.) =0 TO 
10 *(n<pl 2> fpl3Hn=sn2) 

1820 PRINT RT 10-2 *n , 14 -K ; INK 4 
; PRPER l;CHR$ 149. BEEP .l,ttfl0 
♦lì : NEXT n : NEXT n 

1830 PRUSE 25: PRINT RT 20,0.".. 
.E IL GRRNO CRESCE » ! ",TfiB 0: BL 
£P .5,30: PRUSE 50 

1840 FOR n =0 TO p 12 : FOR M=0 TO 
lo*(n<pi 2 i fpi3*m-pi2) 

1650 PRINT RT 10-2*n,14-W; INK 4 
; PRPER 1,CHR$ 150: BEEP .l.W+ie 
*n: NEXT «: NEXT n 
1860 IF np =0 THEN CO TO 1910 





1S70 PRUSE 25 PRINT RT £0,0;np; 
" CONTADINI LAVORANO LA TERRA";T 
RB 0: BEEP .5 30 PRUSE 50 
1860 LET np 1 = INT (n.p/10) +1: IF n 
pi >10 THEN LET r»pl = 10 
1S90 FOR n =1 TO np1 : FOR fl>=30 TO 
17+n STEP -1: FOR r=l TG 2: PRI 
NT RT 12+fINK 5; PRPER 8,b*i 
r ) 

1900 NEXT r : BEEP . 05, m : NEXT f». 
NEXT ri 

1910 IF tfa0 THEN GO TO 1970 
1920 PRINT RT 20,0;te;" TURISTI 
VISITANO IL PRESE";TRB 0: BEEP . 
5,30: PRUSE 50 

1930 LET tri=1NT (tr/100)+1: IF 
trl>6 THEN LET lrl=6 
1940 FOR n = 1 TO tri: LET fdsINT 
(5 *RNO) : FOP m=25 TO 7 STEF -1: 
FOR r=l TO 2 

1950 PRINT RT 16 + »',l»; INK 2rrd;b 
$(r): NEXT r: EEEP . 05, DA 4-2 *n : Pfi 
USE ( m = 16 >flSrl: NEXT m 
1960 PRINT RT 17,7," ";RT 18,7;" 

** : NEXT f> 

1370 RETURN 

1996 REM 

1997 REM 


1996 

1999 

2000 
2001 
2302 
2903 
2004. 
2005 
2010 
1003) 
2020 

) 

2030 

2040 

2496 

2497 
24 96 

2499 

2500 

2501 

2502 

2503 

2504 

2505 
2510 
) 

2520 

2530 

2535 

ndato 


REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

LET 

LET 


LET C=0 
RETURN 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
LET 


******************** 
* * 

* INIZIALizzrzione * 

* * 
******************** 


a =60600 *INT ( (RNO-RND) * 
ba500fINT l (P.ND- AND) * IO 
d =2000 


LET 


************* 
* * 

* INPUT * 

* * 
***** **** ir*** 


LET 
CLS 
PRINT 
ai 5 


W =100 *INT ( (RND-RND) *10 
V=10+INT ÌRND*6) 


"Rve te 
ann i , 


ricevuto un 
questa e ' la 


ma 

s i 


trazione dell'anno " ; y 
2540 PRINT '" Il vostro paese ha 
una estensione di ";d-in;" etta 

ri di terra di.cui 1000 ettari 

inu ti l izzabi ti." 

2550 IF in THEN PRINT in;" ettar 
i sono stati venduti a industrie 
stranisre." 

2560 PRINT "Avete al vostro serv 
izio ";b;" contadini." 

2570 IF c THEN PRINT c;” lavorat 
ori stranieri vivono.nel paese 


2580 PRINT "I terreni possono es 
sere vendutialle industrie stran 
iere per ";«;'"Rods per ettaro." 
2590 PRINT " Le coltivazioni Vi 
costeranno"* v;" Rods per ettar 
o " 

2600 PRINT "Il vostro patrimonio 
consiste in ";a;" Rods" 

2610 PRINT '"Quanti ettari voiet 
e vendere?";: INPUT h 
2620 IF h)1000-in THEN INPUT RT 
0,0; <" Avete solo 1000 -in;" 

ettari da vendere..© 

uan ti,allora? ");h: 60 TO 2620 

2630 PRINT h 

2640 PRINT "Quanti Rods volete s 
pendere per i contadini?";: INPU 
r i 

2650 IF i>a THEN INPUT RT 0,0, C" 
Il vostro patrimonio consiste so 
lo di ”;a;" Rods. Quanti ,a uora? 
" ) : 1 : GO TO 2650 
2660 PRINT i 















2670 PRINT "Quanti ettari volete 
coltivare? : INPUT J 
2680 I F j*V>a-i THEN INPUT RT 0 , 
0; f Ui sono rimasti solo ”;a-x; 

Rods .Ouanti,allora? );j: GO 

TO 2630 

2690 IF j >b*1.5 THEN INPUT RT 0, 
0* fogni contadino può ' co 1 1ivare 
solo 1,5 ettari. Quanti.allora? 


" ) ; J 

2700 


GO TO 2680 
IF j >1000-in-h 


THEN INPUT R 
r 0,0;("Avete solo 1000 -in-h;" 

ettari da piantare.Quanti alior 
37 "),J: GO TO 2680 
2710 PRINT j , „ 

272© PRINT "Quanti Roda volete s 
pendere per il controllo 4ell ' in 
qu i namen to?"; : INPUT 1 
2730 IF k>a-i-J*V THEN INPUT RT 
0,0; rui sono rimasti solo ";a-i 

-j*v;" Rods..Quanti,ailora? ** ) 

; k : GO TO 2730 
274.0 RETURN 

3996 REM 

3997 REM 

3996 REM *************** 

3999 REM * . _ * 

4.000 REM * RISULTATI * 

4001 REM * * 

4002 REM *************** 


4003 REM 

4004 REM 

4005 REM 

4010 let a l=a-i -v * j-k . LET a=a*h 
*W -i -v * j -k 

4320 LET din sh: LET in=in*h 
4030 LET pl=J 

4040 LET sUZNT Cb-i/5Qì : IF St< 
0 THEN LET S t =0 

4050 LET P0=INT (in/5-k/2S00)+IN 
T (RNDi 10j * tir» > 0 » 

4060 IF po<0 THEN LET p0=0 

4070 LET np=INT ((i/lO0-b)/ÌO+K/ 

25 - i O /50 -p O -S t > 

408.0 IF np <0 THEN LET OP=0 
4090 LET np=INT (np): LET b=b+np 
~£t-pO 

41C-0 LET tr= INT (b-in) : IF tr<0 
THEN LET lr =0 


4110 LEI C=CfSNT (b/2)*INT (RND* 
10» * th < >0) 

4120 LET C r =1-in/20QQ 
4130 LET a=a*INT (Cf*pl*60)+INT 
(lr*40J 
4140 RETURN 
REM 
REM 

REM *************** 

REM * * 

REM * CONSEGUENZE * 

REM * * 

REM *************** 

REM 
REM 
REM 

CLS : LET fl=0 

IF £t+po>0 THEN PRINT "DOVC 
pagare IMT (9*(sttpo^);" Ro 
per i funerali.**: LET a = INT l 

IF a <0 THEN LET in 


4496 

4497 
4496 

4499 

4500 

4501 

4502 

4503 

4504 

4505 
4510 
4S20 

t e 
dà 

3 -9 * l S t tpo> ) : 
— in * INT l a /ui » 


LET 


:0 


PRINT 


ovete vendere le terre per riemp 


ire la CASSA.* 

4 530 IF Ci-<.95 THEN Pft INT "L'inq 
uinamento rovina il grano!" 

4540 IF C r < . 8 THEN PRINT ** . . . e a 
e riamente !!!•** 

4550 PRINT INT Ccf *j); *’ ettari d 
i grano sono stati mietuti e ven 
duti per ";INT (cr*j*60»;" Rods. 


4555 IF ir THEN PRINT "Avete gua 
dagnato INT ftr*40);" Rods con 
il turismo." 

4560 IF al AND St THEN PRINT " R 
vete portato i contadini allo s: 
reno quando la CASSA era piena", 
iET f1=1 

4570 IF C > b THEN PRINT "Ci sono 
piu' lavoratori stranie-ri che n 
azionali, i quali stannopreparan 
do una rivolta.": LET f1=1 
4560 IF st*po>100 THEN PRINT "AV 
ete fatto morire piu* di 1O0 pe 
rione quest'anno.": LET ft=l 
4590 IF b <330 THEN PRINT "Durant 
e it vostro mandato la po-polazi 
onesi e' ridotta di un terzo.": 
LET f1=1 
4600 RETURN 


Tennis 

Ricordate uno degli antenati dei Videogiochi... il PONG?? Questa ne è una riproposta. Ma ora con- 
centratevista per iniziare il primo seti Vinca il migliorelll 
Istruzioni e comandi sono inseriti nel listato. 


1 REM *********************** 

TENNIS 

8 REM * * 

9 REM * LIST 1984 * 

10 REM * * 

11 REM *********************** 

12 REM 

13 REM 

14 REM 

15 GO SUB 10O0 

20 LET ancora^ ISO: LET servizi 
0=260: LET giOCO=300. LET «ovpal 
13=360: LET rac1=500 : LET rac2=6 
00: LET punto=700 


25 

30 

31 

32 

33 

34 
40 
50 


60 

70 

80 

60 

90 

100 

101 

102 

103 

104 

105 


REM 

REM ********************** 
REM «Definizione carattere 
REM * grafico della palla 
REM ********************** 
REM 

FOR U =0 TO 7 
READ a 

POKE USR "b"*u,a 
NEXT U 

DATA 60,126,0,255,255,0,126 
REM 

REM **************** 

RtM * preparazione * 

REM * lo schermo * 

REM **************** 

REM 

REM 


♦ * fc * 















4,11; PRPER 1;"TEN 


HO BORDEk 2. PAPER 7: INK 9: 
RIGHT 1: CL5 
120 PRXNT RT 
NI5*’ 

130 PRINT F'OPER 5, RT 7,3; "GIOCA 
TORE 1 *‘ ; fiT 7,16; "GIOCATORE 2“*' 
14-0 PRINT TAB 2; ‘ Tasto «=3110“, 
‘Tasto K =a t t o “ ' : PRINT TRB 2; “T 

«sto 2=basso",“Tasto H=basso" 

150 PRINT RT 19,1; FLRSH i;"PRE 
NI UN TASTO PER COMINCIARE" 

150 PAUSE O 
REM 

REM *********************** 
REM * per ottenere il ca- * 
REM » rat tere ^ .digitare * 
REM * B net MODO GRAFICO * 


153 

154 

155 
155 

157 

158 

159 
170 
175 
180 
181 
182 
183 

190 

191 

192 

193 
194- 
200 


REM 

REM 

LET 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

DIM 


*********************** 

t$="r" 

**************** 

* inizio gioco * 
**************** 


**************** 

* preparazione * 

* pararne tri * 
**************** 


DIM P (2) : DIM d (2 


LET y=2+INT (PND* 


b (2. 

) : DIM S(2) 

201 REM 

202 REM * b,p=posiz.racchette * 

203 REM * d=m evi», racchette * 

204- REM *s=punteggio * 

205 REM *********************** 
205 REM 

210 LET pallegiOCO=21: LET bil) 

= 9: LET b(2) =9 : LET pi1 ) =0 . LET 
P (2) = 31: LET s (1) =0: LET 5 (2) =0: 

LET dX = l- (RND>.5) *2: LET dy=l-< 
RND>.5 )*2 

220 REM ****4***************** 

221 REM * preparazione canpo * 

222 REM ********************** 

223 REM 

230 BORDER 5: PAPER 1: CL5 : PR 
INT PAPER 5; BRIGHT O;TAB 31;" " 

24.0 GO SUB rad 
250 GO SUB race 
255 REM 

250 REM ************ 

251 REM * servizio * 

252 REM ************ 

253 REM 

270 PRINT PAPER 5; BRIGHT 0;RT 
O , 13; sii) , S (2) 

250 LET X =15 

19) 

290 PRINT INK 5,RT y,x;b$: BEEP 

. 2,0 

300 REM 

301 REM ********* 

302 REM * gioco * 

303 REM ********* 

310 IF X>2 RND X<29 RND y>l AND 
y <20 THEN GO TO iovpalla 
320 IF X + d X =-1 OR X+dX=3 2 THEN 
GO TO punto 

330 IF ATTR i y*dy,x*dx) =15 THEN 
LET dX = -dX : BEEP .05,0 
34-0 IF ATTR (y tdy ,X-dX) =15 RND 
RTTR (y,X-d.X) <>15 THEN LET dy=-d 

*350 IF y +dy =0 OR y*dy=22 THEN L 
ET dy =-dy; BEEP .05,0 

350 REM 

351 REM ******************* 

352 REM * diovj tento palla * 

353 REM ******************* 

354 REM 

370 PRINT RT y,x;“ " 

380 LET x =x *dx : LET y=y*dy: PRI 
NT INK 6,AT y,x;fa$ 

390 REM 

391 REM ******************* 

392 REM * controllo tastì * 

393 REM ******************* 

394 REM 

400 LET d(1)=(IN 55278=253)-(IN 
55022=254) 


410 LET d (2) = CIN 32755=251) - iIN 
49150=251) 

420 LET d (1) =d (1) * (b i 1) +d il) =©> 

- ibi!) rdi 1.» =20) 

430 LET d (2) =d (2) * (b i2) *d 12; =©* 

- (b(2) -fd (2 ì =20) 

440 IF dii) < >O THEN GO SUB rad 
IF d i 2) < > 0 THEN GO SU6 fac2 
GO TO giOCO 
REM 
REM 
REM 
REM 
REM 
REM 
REH 
REM 
REH 
REH 
LET 

( d il) = 1 ) *2 
520 FOR n=a TO b 

b(l) tn.p (l)i; " " 

NE.XT n 

LET b ( 1) ---bil) +d il) 

FOR n =2-a TO 2-b STEP -1 
PRINT BRIGHT 3,AT bil) +r>,P 


450 
450 
470 
4 80 
490 
4&1 

492 

493 

500 

501 

502 
50 3 
510 


*************** 

* subroutanes * 

*************** 

*************** 

* racchetta 1 * 

*************** 

a = <d <i) =-i:< *: 


LET b=2- 


PRINT BPIGHT 


X . PT 
330 

54 O 
550 
550 
i ) ; ** 
370 
580 
590 

500 

501 
602 
503 
SIO 


NEXT n 
RETURN 
REM 

REM *************** 

REM * racchetta 2 * 

REM *************** 

REM 

LET a = (d (2) =-1) *2: LET 
id (2) =1) *2 
520 FOR n=a TO b. 

b <2j *n , p (2 f ; " " 

NEXT n 

LET b i2) =b (2) +d i2) 

FOR n=2-a TO 2-b STEP -1 
PRINT BRIGHT 0;RT b(2)*n,P 


4, RT 
530 
540 
650 
660 
2) ; •'* 
670 
680 
690 
SOI 
692 
69 3 
TOO 

701 

702 

703 
710 

T RT 
720 
730 


b =2 - 


PRINT BRIGHT 


NEXT n 
RETURN 

REM ********************** 
REM * acquisizione punti * 
REM ********************** 
REM 

REM ********* 

REM * punto * 

REM ********* 

REM 

IF RTTR iy,x)<>15 THEN PRJN 
y , X ; " “ 

BEEP .25,12 

IF X =31 THEN LET S(1)=S(1) ► 


1 

740 IF X =0 THEN LET S (2) =S (2; +i 
750 LET pai legioco=patteyioco-l 
750 IF pallegioco>0 then go to 
servizio 

780 REM ***•> ************ 

781 REM * fine partita * 

782 REH **************** 

763 REM 

793 BORDER 1: PAPER 7: CLS 
800 PRINT RT 7,2;“PUNTI Giocato 
re 1 =“;s i 1) 

810 PRINT PT 12,2;"PUNTI Gioca* 
ore 2 = “ ; s ( 2 ) 

830 INPUT "DOLETE GIOCARE ANCOR 
H? (S/n) “; LINE y* 

840 IF CODE y$=115 OR CODE y 4=3 
3 THEhl GO TO ancora 
350 STOP 
1000 CLS 

1010 BORDER 1: PAPER 1. INK 7: C 
L5 

1O20 PRINT TRE 12; “TENNIS ' 
103O PRINT “Ricordate uno degli 
antenati deiv j deogioeh j.... ii TE 
NNIS 77“ 

1340 PRINT “Questa ne e' una rip 
roposta . ** 

1050 PRINT "Avete 21 palle a dis 

posizione.e......vinca il »ig 

l ì o re! J ” 

1060 PRINT RT 21,1;“PREMI UN TRS 
ro PER CONTINUARE" 

1070 PAUSE 0 
1080 RETURN 











Mozart 


Una delle caratteristiche del Texas TÌ99/4A è la capacità di eseguire delle routines grafiche e sonore 
indipendentemente una dall'altra. 

Tale caratteristica è particolarmente utile poiché l'esecuzioni dei programmi non viene legata ai tempi 
morti degli effetti sonori. 

La gestione sonora è uno dei punti forti del Texas , usato in questo programma come uno di quei vecchi 
pianini a nastro che si sentivano una volta nelle strade delle nostre città. 

Il brano da eseguire è composto da alcuni esercizi giovanili per pianoforte. 

Fate attenzione nel digitare correttamente i DATA per evitare ai ascoltare delle fastidiose stonature. 

Il programma è, nel complesso, semplice ed immediatamente fruibile senza alcuna "manovra" da 
eseguire nel suo svolgimento. 


100 DIM X(14,9) 

110 REM MOZART 
120 CALL CLEAR 
130 CALL SCR'EEN < 4 ) 

140 PRINT "SONO TI 99/4A,UN0 DEI" 
150 PRINT s:"SO FARE MOLTE COSE:" 

PROVA... " 

160 FOR T=1 TO 14 
170 FOR TT =1 TO 9 
180 READ X(T,TT> 

190 NEXT TT 
200 NEXT T 

210 DATA 196,494,494,247,494,587, 
220 DATA 196,494,587,247,587,523, 
230 DATA 196,494,523,247,587,523, 
240 DATA 196,523,587,262,659,784, 
250 DATA 196,523,659,262,659,587, 
260 DATA 196,659,523,262,392,659, 
270 DATA 220,523,587,262,784,587, 
280 DATA 220,440,587,220,523,494, 
290 DATA 220,659,784,262,587,523, 
300 DATA 220,523,494,262,440,494, 
310 DATA 220,523,494,262,440,494, 
320 DATA 196,494,523,247,587,587, 
330 DATA 196,587,523,220,440,440, 
340 DATA 196,659,587,262,523,523, 
350 P=250 


:"PIU' EVOLUTI COMPUTER NATI": 
: :"AD ESEMPIO SUONARE MOZART.. 


294.494.220 

294.494.294 
,294,494,294 
,330,784,262 
,330,523,262 
,330,523,196 
, 294,523,220 
,294,440,262 
.294,494,220 

330.523.220 

330,523,262 

294.287.294 

294.440.220 

330,523,262 


"DALLA TEXAS" 

":::"METTIMI ALLA 


360 DATA 1,3,6,2,1,4,6,2,3,4,1,5,1,4,6,7,1,4,6,2,1,3,6,9 

370 DATA 1,1,4,5,1,4,6,2,3,4,1,5,1,4,1,5,1,4,6,9 

380 DATA 1,4,6,2,3,6,1,5,1,4,6,7,3,4,6,2,1,4,3,7,1,4,6,9 

390 DATA 1,4,3,7,1,6,4,5,6,3,6,2,4,6,1,5,1,4,6,9 

400 DATA 1,4,3,7,6,3,6,2,4,6,1,5,1,3,6,7,3,6,1,5,1,4,6,9,8 

410 READ RR 

420 ON RR GOTO 490,430,570,620,450,700,480,780,860 

430 Y=12 

440 GOTO 810 

450 Y=14 

460 GOTO 810 

470 Y=13 

480 GOTO 810 

490 Y=1 

500 RANDOMIZE 

510 IF RND>.35 THEN 540 

520 Y=3 


<?8 






ffmnì 



530 RANDOMIZE 
540 IF RNDC.75 THEN 560 
550 Y=2 
560 GOTO 810 
570 Y=10 
580 RANDOMIZE 
590 IF RND>.4 THEN 620 
600 Y=11 
610 GOTO 810 
620 Y=4 
630 RANDOMIZE 
640 IF RND>.35 THEN 660 
650 Y=5 
660 RANDOMIZE 
670 IF RND<.75 THEN 690 
680 Y=6 
690 GOTO 810 
700 Y=7 
710 RANDOMIZE 
720 IF RND>.35 THEN 740 
730 Y=8 
740 RANDOMIZE 
750 IF RNDC.75 THEN 770 
760 Y=9 
770 GOTO 810 
780 CALL CLEAR 

790 PRINT " SONO BRAVO...EH ! !" 

800 END 

810 FOR 1=1 TO 9 STEP 3 

820 CALL SOUND( P, X ( Y, I ),2,X(Y,I+1) ,2) 

830 CALL SOUND(P,X<Y,I>,30,X<Y,I+2>,2) 

840 NEXT I 

850 GOTO 410 

860 CALL SOUND(1800,196,2,494,2,784,2) 
870 FOR T=1 TO 800 
880 NEXT T 

890 C0L=INT(RND*8>«-8 
900 CALL SCREEN(COL) 

910 GOTO 410 
920 CALL CLEAR 




<?9 









Il mure 


Si tratta di un giaco molto conosciuto ed apparso in diverse versioni anche per altri modelli di home- 
computers. Esso consiste nel riuscire ad abbattere un muro usando cinque proiettili rimbalzanti. 

Si riesce a dirigere il proiettile facendolo rimbalzare su una speciale piattaforma mobile divisa in tre 
seamenti. 

Altre istruzioni sono comprese nel programma. 


WALL - IL MURO 
TEXAS TI 99/4A 


NEL 


100 REM THE 

103 REM PER 

110 CALL CLEAR 
115 PRINT M IL MURO ! 

120 PRINT : : : : : s : t : 

125 FOR T=1 TO 2000 
130 NEXT T 
135 CALL CLEAR 
140 RESTORE 
145 CALL SCREEN(16) 

150 PS*2 

155 IF PS=18 THEN 195 
160 PS=PS-*-2 
165 READ A* 

170 GOSUB 925 
175 GOTO 155 

180 DATA "IL GIOCO CONSISTE 
",-PROIETTILI. - 
185 DATA "I TASTI 
TASTO" 

190 DATA "PER SPARARE.","PREMI 
FOR D=1 TO ÌOOO 
NEXT D 

CLEAR 

COLOR(2,2,15) 

COLORdl ,7,15) 

COLOR(12,5,15) 

C0L0R(13,13,15) 

CHAR(112,"COCOCOCOCOCOCOCO") 
CHAR(113,"0303030303030303") 
CHAR(114,"OOOOOOOOOOOOFFFF") 
CHAR(115,"OOOOOOOOOOOOCOCO") 
CHAR(116,"0000000000030303") 
CHAR(120,"FEFEFEFEFEFEFEFE") 
CHAR(128,"FEFEFEFEFEFE") 


"RIUSCIRE AD ABBATTERE","UN MURO USANDO CINQUE 


DA USARE SONO « 


K 


"UN QUALSIASI ALTRO 


UN TASTO PER INIZIARE","BUONA FORTUNA!' 


193 

200 

205 

210 

215 

220 

225 

230 

233 

240 

243 

250 

253 

260 

263 

270 

275 

280 

285 

290 

295 

300 

305 

310 

313 

320 

325 

330 

335 

340 

345 

350 

355 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
MAN=5 
PN*0 
Z=0 
BT-14 

CALL SCREEN(13) ‘ 

CALL HCHAR(1,9,114,15) 
CALL HCHAR(1,8,116) 

CALL HCHAR(1,24,115) 
CALL VCHAR(2,8,113,22) 
CALL VCHAR(2,24,112,22) 
PS=8 

A4*"PUNTI" 

W*24 

GOSUB 950 
GOSUB 825 
A*="PAL=5" 

W*2 

GOSUB 950 

CALL HCHAR(10,26,48) 


_r 





30 









TEXAS TI 99/4A 


360 REM «COSTRUZIONE MURO* 

363 FOR 1*4 TO 6 

370 CALL HCHAR(I,9,120,15) 

373 NEXT I 

300 RANDOMIZE 

383 A*INT(RND*15)*8 

390 B-7 

395 BD-1 

400 IF A>19 THEN 405 ELSE 415 
403 AD—1 
410 GOTO 420 
415 AD-1 

420 CALL KEY(O,K,S) 

425 IF S-0 THEN 420 

430 BOTO 573 

435 CALL KEY <0,KY,S) 

440 IF KY-83 THEN 303 
445 IF KY-75 THEN 503 
450 A-A+AD 
433 B=B+BD 
460 IF A<9 THEN 593 
465 IF A>23 THEN 593 
470 IF B<2 THEN 623 
475 IF B>23 THEN 643 
480 CALL GCHAR(B,A,G) 

485 IF G-120 THEN 730 
490 CALL HCHAR(B,A,46) 

493 CALL HCHAR(B,A,32) 

500 GOTO 435 

503 CALL HCHAR<24,BT,32) 

510 CALL HCHAR<24,BT*1,32) 

515 CALL HCHAR ( 24, BT-*-2,32 ) 

520 IF KY-83 THEN 523 ELSE 535 
525 BT-BT-1 
530 GOTO 540 
535 BT-BT+1 

540 IF BT<6 THEN 543 ELSE 560 
543 BT-6 

550 CALL SOUND<30,-1,0) 

555 GOTO 373 

360 IF BT>23 THEN 565 ELSE 573 
363 BT-23 

370 CALL SOUND<30,-1,0) 

573 CALL HCHAR<24,BT,128) 

580 CALL HCHAR <24,BT+1,128) 

585 CALL HCHAR < 24,BT+2,128) 

590 GOTO 450 

595 REM «MURO COLPITO* 

600 AD—AD 

605 CALL SOUND<30,380,0) 

610 IF B<2 THEN 625 
615 IF B>23 THEN 645 
620 GOTO 450 
625 REM *MURO SUPERATO* 

630 BD—BD 

635 CALL SOUND<30,380,0) 

640 GOTO 450 

645 REM «PIATTAFORMA COLPITA* 
630 BD—1 

635 CALL SOUND<30,380,0) 

660 IF A=BT THEN 700 
665 IF A-BT+1 THEN 710 
670 IF A=BT+2 THEN 720 
675 MAN-MAN-1 
680 CALL SOUND<30,-1,0) 

685 CALL HCHAR <8,7,MAN+48) 

690 IF MAN-0 THEN 975 
695 GOTO 385 


700 AD*-1 

705 GOTO 450 

710 AD*0 

715 GOTO 450 

720 AD*1 

725 GOTO 450 

730 REM *MURQ COLPITO* 

735 BD—BD 

740 CALL SOUND<30,380,0) 

745 IF B-6 THEN 760 

750 IF B-5 THEN 775 

755 IF B-4 THEN 795 

760 PN-PN+1 

765 GOSUB 825 

770 GOTO 490 

775 PN-PN+2 

780 GOSUB 825 

785 AD—AD 

790 GOTO 490 

795 PN-PN+5 

800 IF BD=1 THEN 805 ELSE 810 
805 AD—AD 

810 REM «SALTO CALCOLO PUNTEGGI* 

815 GOSUB 823 

820 GOTO 490 

823 REM «PUNTEGGIO* 

830 IF PN=100 THEN 865 ELSE 835 
833 X*INT <PN/10) 

040 Y=PN-<X*10) 

843 CALL HCHAR<10,27,X*48) 

850 CALL HCHAR <10,28,Y+48) 

835 RETURN 
860 PS-8 
863 A4*"BONUS" 

870 W-13 
873 GOSUB 930 

880 FOR 1*200 TO 400 STEP 100 
883 CALL SOUND<30,I,0) 

890 NEXT I 

895 CALL HCHAR<8,12,32,7) 

900 Z*Z+1 

905 CALL HCHAR<10,26,Z*48) 

910 PN*PN-< Z *100) 

915 GOSUB 835 
920 GOTO 363 
925 FOR 1*2 TO 8 
930 CALL COLOR<1,3,16) 

933 NEXT I 
940 W*3 

943 REM «CALCOLO COD. ASCII* 

930 FOR 1-1 TO LEN <A4) 

935 Q*ASC < SEG4< A4,1,1)) 

960 CALL HCHAR<PS,I*W,Q) 

965 NEXT I 
970 RETURN 
975 CALL CLEAR 
980 CALL SCREEN <16) 

985 A4*" FINE PARTITA 

990 PS«8 

993 GOSUB 950 

1000 A*-" VUOI GIOCARE ANCORA?" 

1005 PS«23 

1010 GOSUB 950 

1013 CALL KEY <0,KE,S) 

1020 IF S-0 THEN 1015 
1025 CALL HCHAR<23,25,KE) 

1030 IF KE-03 THEN 110 ELSE 1033 
1035 END 


31 








Corse di Basic 



Continuiamo il corso avviato nello scorso numero con la seconda parte e l'introduzione già annunciata 
precedentemente. 


10 CLS 

20 CURS0R3, 1 SPRINT "LEONI I NFORMAT ICA M 


ILANO" : GOSUB750 
30 CL1RS0R 10,4 :PR I NT 
40 CURSOR0J 6:PRINT 
a 9 ia’ creato può ’ " 
■50 CURSOR0> 7 - p RINT 
riazion i . " 

60 CURSOR0,9:PRINT 
ar iazion i , occorre " 
70 CURSOR0,10:PR1NT 
ulte le istruzioni" 
80 CURSOR0,11:PRINT 
la procedura." 

90 CURSOR0,12:PRINT 
' scolta dal comand 


"COMANDO LIST" 
Spesso un programm 

aver bisogno di oft 

Per operare tali v 

"avere di f r onte t 

"che costituiscono 

"Questa funzione e 


100 CURS0R15,14:PRINT "LIST" 
110 CURSOR0,16:PR1NT " 

•I 

115 CURSOR0,17 :PRINT " 


120 CURSOR0,18:PRINT " 
ornando LIST 

130 CURSOR0, 19 :PRINT " 
e’ preceduto 

135 CURSOR0,20 SPRINT " 

NUMERO di LINEA 

136 CURSOR0,21 :PRINT " 

1 40 CURSOR0,22:PRINT " 

150 X$= INKETS 
160 IFX$ = ‘" THEN150 
170 REM 

180 CLS -CURSOR10,2:PRI NT "SINTASSI E S 
IGNIFICATI" 

190 CURSOR0»4:PRINT "LIST Mostra 

una dopo l’altra" 


NOTA. Il c 
NON 
da l 


200 CURSOR0,5:PRINT " le istr 

jzioni del programma" 

220 CURSOR0,7 :PRI NT "LIST N Uisuali 
zza solo la linea" 

221 CURSOR0, 8 :PRINT " numero 

N" 


222 CURSOR0,10:PRINT "LIST -N Porta 
sul video solo" 

223 CURSOR0,11:PRINT " le lI 

nee da 0 a N" 

224 CURSOR0,13 :PRINT "LIST N- Analog 
o a l precedente , " 

225 CURSOR0,14 :PRINT " solo c 

ne riporta tutte le " 

226 CURSOR0,15 :PRINT " linee 

aa N alla fine " 

227 CURSOR0,17 SPRINT "LIST N1-N2 Uis 
ualizza le linee " 

228 CURSOR0,18 :PRINT " con 

tenute fra NI e N2" 

230 X$=INKEY$ 

240 IFX$=""THEN230 

250 CLS:CURSOR10,1:PRINT "COMANDO 

RUN" :GOSUB750 

260 CURSOR0,5 SPRINT "Quando il program 
ma ha subito" 

270 CURSOR0,6:PRINT "tutte le variazio 
n l necessarie," 

280 CURSOR0,7 SPRINT "va provato : Per f 
ar girare un programma" 

290 CURSOR0> 8 SPRINT "bisogna utilizzar 
c il comando" 


295 CURS0R18,10:PRINT "RUN" 

300 CURSOR0,12 SPRINT " 

•• 

301 CURSOR0,13:PRINT " 
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302 CURSOR0,14:PRINT 

• * 

NOTA. 

I l c 

ornando RUN 

II 



303 CURSOR0,15:PRINT 

II 


NON 

e’ preceduto 

II 



305 CURSOR0,16:PRINT 

H 


da l 

NUMERO di LINEA 

II 




306 CURSOR0,1 ?:PRINT " 

307 CURSOR0, 18 :PRINT " 

310 X$=INKEY$ 

320 IFX$ = ""THEN310 

330 CLS:CURSOR10,1:PRINT 'ISTRUZIONE 
END" :&OSUB750 

340 CURSOR0,4 :PRINT "Per indicare il t 
ermine di qualsiasi" 

350 CURSOR0,5‘-PRINT "programmai e lerm 
arne COMPLETAMENTE" 

370 CURSOR0,6:PRINT "l’esecuzione, es i 
ste l’ISTRUZIONE" 

380 CURSOR17,8 :PRINT "END" 

385 CURSOR0,10:PRINT " 

•I 

386 CURSOR0,11 :PRINT " 


492 CURSOR0,14:PRINT "la prcedura, per 
fermarne" 

^93 CURSOR0, 1 5 :PRINT "MOMENTANEAMENTE 
• l funzionamento " 

494 CURSOR0,16:PRINT "e verif,care, pe 
r esempio, il valore" 

495 CURSOR0,17 SPRINT "di alcune variab 
•li, e poi, ripren-" 

496 CURSOR0, 1 8 .‘PRINT "dere l’esecuzion 
e dal punto in cui"" 

497 CURSOR0,19:PRINT "e’ stata bloccat 

a. " 

500 X$=INKEY$ 

510 IFX$=""THEN500 

519 CLS:CURSOR0,1:PRINT "ISTRUZIONE 
STOP segue" :GOSUB750 

520 CURSOR0,5:PRINT " 


521 CURSOR0,6 :PRINT 

522 CURSOR0,7:PRINT 
ZI ONE 2 2 

523 CURSOR0,8 :PRINT 


ATTEN 


387 CURSOR0,12 :PRINT 
T ENI0NE2 2 

388 CURSOR0,13:PRINT 


AT 


524 CURSOR0,9 SPRINT " 
TOP deve essere 

525 CURSOR0,10:PRINT " 


L’ i struzione S 


389 CURSOR0,14 :PRINT " END e’ un’IS 
TRUZIONE. 

390 CURSOR0,15:PRINT " Come tale DE 
OE essere adoperata " 

391 CURSOR0,16 SPRINT " CON il NUNER 
0 DI LINEA22 

392 CURSOR0,17:PRINT " 

393 CURSOR0,18:PRINT " 

•• 

400 X$=INKEY$ 

410 IFX$=""THEN400 

420 CLS:CURSOR0,1:PRINT "ISTRUZIONE 
STOP" :GOSUB750 

430 CURSOR0,5:PRINT "Questa istruzione 
svolge una funzione" 

440 CURSOR0,6-PRINT "analoga a quella 
d i END : permette di" 

450 CURSOR0,7 : PRI NT I NTERROMPERE" 

460 CURSOR0,8:PRINT "l’esecuzione di u 
n programma." 

470 CURSOR0,10:PRINT "Esiste, pero’, f 
ra le due istruzioni," 

480 CURSOR0,11:PRINT "una distinzione: 
END termina" 

490 CURSOR0,12:PRINT "definitivamente 
l’esecuzione 

491 CURSOR0,13:PRINT "lo STOP invece, 
duo’ servire durante" 


526 CURSOR0,11 :PRINT " preceduta da 
l NUMERO di LINEA 

528 CURSOR0,12:PRINT " 

!• 

529 CURSOR0,13:PRINT " 

530 X$=INKEY$ 

531 IFX$=""THEN530 

540 CLS :CURS0R5,5 : PRINT "UUOI RIUEERE 
LA LEZIONE 3?" 

550 CURSORI 5,7 :PRINT "NO" 

560 CURSORI 3,7 : INPUTA$ 

570 IF A$="NO"THEN780 
580 IF A$="SI"THEN10 
590 GOT0560 

750 CURSOR0,2:POR 1 = 1T038:PRINT ; :N 

EXT I:RETURN 

760 FOR 1 = 1TO700 :NEXT :RETURN 

770 FOR I = 1T038 :PR1NT ; :NEXT :RETURN 

780 CLS:Z$=CHR$C343 : CURS0R3,4 :PRINT " 
PINE LEZIONE 3 " 

790 CURS0R3,7:PRINT "PER INSERIRE LA L 
EZIONE SEGUENTE" 

800 CURS0R3,9:PRINT "DIGITARE L’ISTRUZ 
IONE:" 

810 CURS0R3,11:PRINT "LOAD"}Zt;"LEZION 
E 4 u f2* 

820 CURS0R3,20 :PRINT 
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Sega SC 3000 




BIORITMI 

Anche se la scientificità del Bioritmo non è universalmente riconosciuta bisogna ammettere che sempre 
più spesso viene usato nelle applicazioni più svariate. 

I Giapponesi provvedono ad elaborare i bioritmi dei dipendenti delle fabbrice per evitare errori di 
produzione o incidenti. 

Molti dirigenti sportivi usano i bioritmi per seguire la forma degli atleti e tanti altri esempi potrebbero 
ancora esser fatti a conferma di quanto detto. 

Anche se non sarà estremamente sofisticato , c'è da ammettere che il bioritmo presentato è almeno di - 
vertente. 

Contrariamente al solito si è preferito usare il modo testo perplottarle curve dei vari cicli. 

Le lettere individuano: 

E = Ciclo emotivo, durata 28 giorni. 

F = Ciclo fisico, durata 23 giorni. 

I = Ciclo intellettivo, durata 33 giorni. 

Sull'asse© del grafico, gli asterischi individuano periodi 5 giorni. 

Al di sopra delibasse il segno è positivo, al di sotto è negativo. 

Per l'interpretazione dei grafici diamo alcune note. 

CICLO FISICO 

+ Grande resistenza fisica, salute ottima. 

© Incidenti in agguato. 

Riduzione delle attività, bisogno di riposo. 

CICLO EMOTIVO 

+ Relazioni sociali molto positive. 

© Intasbilità nell'umore e nei sentimenti. 

Tristezza, malinconia. 

CICLO INTELLETTIVO 

+ Senso della percezione molto acuto, grande senso del giudizio. 

0 Errori nelle proprie valutazioni. 

Evitare responsabilità e decisioni. 

II programma fornisce anche la copia su carta dello schermo , ma chi non possedesse la stampante 
pfotter, è bene togliere l'istruzione HCOPYpresente nel listato. 


t SOUND 1,1000,15 

10 REM « BIORITMO X SEGA SC 3000 « 

20 CLS:C0L0R 2,1 

30 DIM A$C12) 

40 DATA GENNAIO,FEBBRAIO,MARZO,APRILE 
50 DATA MAGGIO,GIUGNO,LUGLIO,AGOSTO 
60 DATA SETTEMBRE,OTTOBRE,NOUEMBRE,DIC 
EMBRE 

70 FOR J=1 TO 12 
80 READ A$CJ) 

90 NEXT J 
100 CLS 

105 PRINT "- 

11 

110 GOSUB 1080 

115 PRINT "- 

II 

120 PRINT :PRINT :PRINT 
130 SOUND0 

150 PRINT :PRINT :PRINT 

200 PRINT "Inserire i dati in forma nu 

merica e premendo CR dopo ciascuno." 


205 COLOR 5,1 

210 PRINT SPRINT "DATA DI NASCITA" 

215 PRINT :PRINT 

216 COLOR 2,1 

220 INPUT "GIORNO " ;G 

260 IF G>31 OR G<1 THEN 220 

265 PRINT 

266 COLOR 9, 1 

270 INPUT "MESE ";M 

280 IF M>12 OR M<1 THEN 270 

290 IF M=4ANDG>30 THEN 210 

291 IF M=6ANDG>30 THEN 210 

292 IF M=9ANDG>30 THEN 210 

293 IF M=11ANDG>30 THEN 210 

295 PRINT 

296 COLOR 13,1 

300 INPUT "ANNO ";A 
310 IF A>100 THEN 330 
320 A=A+1900 
330 Q=A-4*(INTCA/4)) 

340 IFM=2 AND Q>0 AND G>28 THEN 210 
350 IF M=2 AND Q=0 AND G>29 THEN 210 










360 GOSUB 990 

370 D=R:PRINT 

376 COLOR 5,1 

376 PRINT :PRINT 

380 PRINT "PREUISIONE PER..." 

390 PRINT :PRINT 
395 C0L0R9,1 
400 G= 1 

410 INPUT "MESE ";M 

420 IF n>12 OR n<l THEN 410 

425 PRINT :PRINT 

426 COLOR 13,1 

430 INPUT "ANNO ";A 
440 IF A>100 THEN 460 
450 A=A +1900 
460 GOSUB 990 
470 S=R-D 

480 IF S>0 THEN 530 

485 PRINT :SOUND 1,400,15 

486 COLOR 15,1 

490 PRINT :PRINT "OPTI ERRATI, RIPETER 
E 2 S 2 " 

500 FOR T=1 TO 1500-NEXT :SOUND 0 

520 GOTO 100 

530 CLS:COLOR 1,15 

600 FOR J=1 TO 29 

605 CURSOR J , 12 : P RI NT "-** 

610 NEXT J 

612 FOR JJ=5 TO 30 STEP 5 
615 CURSOR JJ,12: p RINT 
620 NEXT JJ 

624 FOR Y=22 TO 1 STEP -1 

625 CURSOR 0 ,T :PRINT "!" 

626 NEXT Y 

627 CURSOR0,0:PRINT "2" 

630 FOR B=23 TO 33 STEP 5 
640 2=S 

650 FOR J=1 TO 30 STEP 1 

660 YY=C2-B*INTC2/B33*6.28'B 

670 Y=SINC YY 3 

680 Y=INTC11.5-10*Y3+l 

690 IF B<>23 THEN 710 

700 CURSOR J,Y:PRINT "F" 

705 COLOR2 

710 IF B<>28 THEN 730 
720 CURSOR J,Y:PRINT "E" 

725 C0L0R8 

730 IF B<>33 THEN 750 
740 CURSOR J,Y:PRINT "I" 

745 COLOR 4 
750 2=2+1 
760 NEXT J 
770 NEXT B 

780 CURSOR 3,0 :PRINT A$CM3}" '* ;A 
785 HCOPY 
790 X$=INKEY$ 

800 IFX$="" THEN 790 

801 SOUND 1,800,15 


802 C0L0R5,1 

805 CLS 

806 FOR T=1 TO 150:NEXT T 

810 PRINT "UNA PREUISIONE PER LA STESS 
A " 

811 SOUND0 

815 INPUT"PERSONA ";X$ 

817 IF X$="FINE" THEN 5000 
820 IF X$=“NO" THEN 210 
830 IF X$="SI" THEN 380 
850 GOTO 810 
990 UI=INTCCn-l 3*30.43 
1000 IF H<>2 THEN 1020 
1010 U=31 

1020 IF n>2 OR n<8 THEN 1040 

1030 R=G+U+INTC365.25*CA-133:GOTO 1050 

1040 U=U-1:GOTO 1030 

1050 IF n>2 AND Q=0 THEN 1070 

1060 GOTO 1075 

1070 R=R+1 

1075 RETURN 

1080 PRINT ; =====^=================== 

l li 

1085 PRINT "! BIORITMI 

■ li 


1090 PRINT "! 

I II 

I 


1 100 

5000 

RETURN 

END 
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Surf 


Finalmente siamo in estate. 

È tempo di "surf" anche per il computer ... / 

Un gioco che vi permetterà di valutare le vostre capacità standovene tranquillamente e comodamente 
seduti nella vostra poltrona preferita. 

Le istruzioni sono comprese nel programma. 



1-130 Stampa il titolo / cambia il set di caratteri definisce le variabili. 

131-136 Stampa le istruzioni ed inizia un ciclo in attesa che venga premuto un tasto. 

137 Pulizia schermo, effetti sonori. 

138 Inizio gioco, segnale acustico di partenza. 

139 Visualizzazione del via e contemporanea pulizia dello scherno nella parte bassa. Nello 
svolgimento del gioco in tale riga si conteggiano anche i metri percorsi. 

140 + Definizione della variabile T (vedi spiegazione). 

141 Effetto sonoro. 

142-144 Cambia colore dello schermo in funzione dei metri percorsi. 

150-160 * Ridimensionamento della variabile T (vedi spiegazione). 

170 Scrolling verticale dello schermo. 

200-210 Test di controllo direzione del giocatore. 

211 Salto alla routine di controllo collisioni. 

220-290 Visualizzazione del giocatore e degli ostacoli. 

300 Ripetizione del ciclo. 

336 Routine di determinazione del tipo di collisione. 

340-396 Visualizzazione del tipo di collisione, dei metri percorsi e richiesta di un'eventuale ripeti¬ 
zione del gioco. 


La variabile T è usata per evitare che la stampa dello spazio vuoto, determinante il movimento vertica¬ 
le degli ostacoli, avvenga sempre nella medesima posizione. 

Si evita con tale accorgimento, di creare un corridoio in cui posizionare il giocatore e metterlo al sicuro 
da eventuali ostacoli. 


1 PRINT "3T' :P0KE36379,25 

2 PR I NT " fc^SiMs***^*****#**" 

3 PRINT"* SURF #" 

4 PR I NT " 

5 PR I NT " fJZ=3 1NI STRAW" 


6 PRINT"C=DESTRA" 

7 PRINT"MWWMLIN ATTIMO... PREGO ! 
10 P0KE51,255 :P0KE52,27 

15 P0KE55,255 :P0KE56, 27 
20 FORI=0TO511 
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30 P0KE7168+I,PEEK<32768+I):NEXT 
35 FORI=0TQ46 : REAPA 
4 Ci R0KE7168+1 + <N* 8 >,A:NEXT 
50 POKE36869,255 
60 DflTflO,64,16,24,30,63,126,200 
70 DRTR24,24,255,28,12,20,164,127 
80 BATA24,24,255,48,96,112,25,254 
90 DATA24,24,255,12,6,14,152,127 
100 BRTR24,24,255,60,24,28,20,62 
110 HRTR0,16,16,56,124,124,56,16 
120 POKE36879,59•PQKE 36878 ,i 5 

130 Z=7756:T=7: 0=38476 ; W=36877:Q=36876:D=36878 H=0 

131 PRI NT " 13TRIJZIONI : " ■ PRI NT " 3DEVI FARE IL SURF EVIT ANDÒ : " 

133 PRINT"5«!E :*_E EOE "KQA ZÌZOLI RLTRI SURFISTI" 

134 FRI NT "■:?)? SOLI SCOGLI" = FRI NT"» «BUONA FORTUNA! ! «PREMI UN TASTO 

135 GETAt : IFA*0" "THEN137 

136 GOTO135 

137 PR I NT " 3" ■ F0RR= 135T0241 : POKEQ, R ■ NEXT : F'OKEQ, 8 

138 FORl.J=0TOO • IFPN=22THENP0KEW, 0 : POKEQ, 230 : FORK= 1TO300 NEXTK Pii! EQ, O 

139 PN-PN+1 : 1FPN=22THENPRINT"S VAI ! 

140 T=T+H 

141 POKEU,250 

142 IFPN=2801 HENPOKE36379,57 

143 IFPN=500THENP0KE36879,62 

144 1 FPN=670THENPOKE36879,68 
150 IFT=0THENT=1 

168 IFT=8THENT=7 

170 printtab<:t> m 

180 POKEZ+X-22,32 :POKEZ+X,32 

200 IFPEEK203>=33THENX=X-1 : POKEZ+X, 3 : V= 1 : PQKED, 15 

210 IFF’EEK<203 > =34THENX=X+1 : POKEZ+X, 2 : V=1 : POKEU, 15 

211 GOTO310 

220 POKEZ+X,4 :POKEU,8 

230 POKEC+X,6 

235 FOPP= 1TO10 : NEXTF* 

248 N= I NT ( RND < 1 > -f22> +1 

241 V=INT < RND<1> #2 > +1 

242 POKE38905-N,V-1 

243 P0KE3135-N,V-1 

244 P0KE8185- < V+N>,5 

245 POKE38905-<V+N >,4 

249 NEXTIJ 

250 F=INT <RNB< 1 >#3) +1 
260 IFF=1THENH=1 

270 IFF=2THENH=-1 
288 IFF=3THENH=0 
290 0=INT<RND <1> #7 ) +1 
300 GOTO138 

310 IFPEEK< Z+X+22)=0THEN340 
320 IFPEEK < Z+X+22 >=5THEN358 
330 IFPEEK <Z+X+22 > = 1THEN360 

335 IFV=1THENV=0:G0T0230 

336 GOT0220 

348 PRINT"nWrt? :»HRI PRESO UNO SCOGLIO"" G0T0378 

350 PRINT'TWRE :f!HAI INVESTITO UNA BOA"" : G0T0378 
360 PRINT’TMOFI «COLLISIONE CON ALTRO SURF ISTA"" : GOTO370 
365 P0KE36869,25 

370 IFPN>HITHENHI=PN 

371 F'R I NT " flWSHfì I PERCORSO "PN • FRI NT" 5METRI" 

372 T=7 '■ X=0 : H=0 

375 POKEU,0 :F0RP=241TO135STEP-1 :POKEQ,P•NEXT:POKEQ,8 

376 PR I NT " 3WDI STANZA MAGO I ORE PERCORSA "HI 

330 PRINT".?M3JN ALTRO GIRO?<S/N>" 

390 GETA*: IFA*="S"THENPN=0:PRINT"1"PT:P0KE36879,59 : GOTO133 

395 IFA*="N"THENPRINT"^ALLORA CIAO!!!"•P0KE36869,248•END 

396 GOTO390 J 
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Istogrammi di percentuali 


Avendo a disposizione svariati oggetti o dati, ciascuno in quantità diversa, può essere utile ed interes¬ 
sante conoscerne la percentuale rispetto al totale. 

Il programma che presentiamo permette non solo di visualizzare il grafico, ma anche di leggere l'esatta 
percentuale di ciascuna classe o oggetto spostando un indicatore manovrato mediante i comandi del cur¬ 
sore. 


STRUTTURA PROGRAMMA 

30 - 40 Dimensionamenti e titolo 

50 Immissione numero di classi 

60 - 80 Immissione dati e calcolo percentuale 

90 - 130 Realizzazione grafico 

140 - 150 Posizionamento iniziale cursore 

160 - 260 Controllo cursore e stampa percentuali 


Variabili 

K$ Nome classe 

K Quantità di ciascuna classe 

H Rapporto classe/totale 

A Quantità totale 

B Codice colori grafico 

N Numero di classi 


10 REM «COSTRUZIONE DI ISTOGRAMMI* 

20 REM *BY E.FABRI2I-1984* 

30 CLR:C0L0R,,7,1:PRINT"D":DIM KC30),K$C 
30 ) , H ( 30 ), B C 30 ) 

40 A*="ISTOGRAMMA DI PERCENTUALI":CURS0R 
7,5:F0R 1=1 TO LENCA#):PRINTC2,6)MID*CA« 
,1,13;:GOSUB290=NEXT 

50 CURSOR0, 15:PRINT[0,4r Incerine il nun 
ero di classi da immqtte-re fino ad un « 
assimo di 30 classi: ";:G0SUB 280:INPUT 
N 

60 COLOR,,0,6:PRINT 1 0":PRINTC1,7DTABC11) 
"IMMISSIONE DATI":GQSUB280:PRINT:PRINT: 
A=0 

70 FOR 1=1 T0 N:PRINTC0,4]"CLASSE N. "Jl 
; : INPUT KtCII:PRINTC1,7]'QUANTITÀ' : "J : I 
NPUT KCI):GOSUB290:PRINT:A=A+KCI):NEXT 
80 FOR 1 = 1 TO N:HCI3=KCn*20/A:NEXT:COLO 
R,,7,0:PRINT"D" 

90 CURSOR0,2 :PRINT"100*":CURSORI,12:PRIN 
T"50*" :CURSOR2,22:PRINT"0*" :GOSUB280 
100 FOR 2=1 T0 N:IF KC2)=0 THEN 130 
110 BC2)=INTC7*RNDC1))+1 : IF BC2)=BC2-1)T 
HEN 110 


120 FOR 1=21 T0 INTC21-HC2))+1 STEP -1:C 
OLOR 2+6,I,,BC2):NEXT I:GOSUB 290 
130 NEXT 2 

140 CURSOR 5,0:PRINTLEFT$CK*CU, 15) J" : " 
;KC1 ) J" C"jUSING"###.##"JKC1)*100/AJ:PRI 
NT" *)":X=7 : Y=22 
150 CURSOR X,Y:PRINT"T" 

160 QST C*: IF C*=""THEN 160 
170 IF C*=CHR*C13)THEN 30 
180 CURSOR X,Y:PRINT" " 

190 ìf C*="B"THEN X=X-1 
200 IF C*="B"THEN X=X+1 
210 IF X<7 THEN X=7 
220 IF X>36 THEN X=36 
230 IF X-6>N THEN X=N+6 
240 S=X-6 :CURS0R 0,0:PRINT" 


250 CURSOR 5,0:PRINTLEFT*(K*CS), 15)J": " 
JKCS) J" C" JUSING’*•###. ;KCS)*100/AJ :PRI 

NT" *)":GOSUB 290 
260 GOTO 150 
270 END 

280 TEMPO 7:MUSIC"C1DIE1F1 Gl AlB1":RETURN 
290 TEMPO 7:MUSIC"+C1":RETURN 
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SHARP MZ-700 


Riunisci la... musica 


Ecco un gioco in cui l'elemento sonoro, una volta tanto, prevale su quello visivo. 

Nel computer sono inseriti 10 motivi musicali, ciascuno diviso in due parti; inserendo una coppia di nu¬ 
meri da0a9, il vostro MZ-700 eseguirà la prima metà di un motivo, quindi, a breve intervallo, la se¬ 
conda metà. Se le due parti corrispondono allo stesso brano musicale viene segnato un punto, altri¬ 
menti occorre tentare ancora. 

Se i motivetti non sono di vostro gradimento, potete cambiarli modificando le coppie di stringhe nelle 
righe da 320a 410. 


STRUTTURA PROGRAMMA 
40-100 Titoli 

110-190 Mescolamento motivi 
200-260 Esecuzione e riconoscimento motivi 

270-310 Punteggio e termine gioco 

320-410 Stringne musica 


VARIABILI 


A$ 


(9)-C$(9) 

Prima parte brani 

B$ (9)-(9) 

Seconda parte brani 

R 

N ° tentativi effettuati 

W 

N® brani indovinati 

A,B 

Posizionamento cursore 
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10 REn*RIUNlSCI LA MUSICA* 

20 REH*BY E.FABRIZI-1984* 

30 REM*SHARP MZ-700* 

40 COLOR,,0,6:PRINT"B":F0RK=2T037 :COLORK 
,2,,2:NEXT:F0RK=3T022:C0L0R37,K,,2:NEXT: 
FQRK=36T02STEP-1 sCOLORK,22,,2:NEXT :FORK= 
21T03STEP-1 :C0L0R2,K,,2:NEXT 

50 TI♦“"RIUNISCI LA." :T2$="MUSICA" :C 

URSOR12,5:FORK=1T OLENC T1 ♦ 3:PRINT[7,1 3MID 
$CT1$,K,13 ;:GOSUB420:NEXT:CURSOR17,7:FOR 
K=1TOLENCT2*3:PRINTC7,13MID$CT2$,K,13 ;:G 
OSUB420sNEXT 

60 CURSORI 1,12:PRINTC7,1]"di E.FABRIZI- 
1984":CURSOR4,20:PRINTC7,13"Uuoi le istr 
uzioni7CS/N3" 

70 GET2$:IF2*="N"THEN1 00 
80 IFZ$="S"THENGOSUB440:G0T0100 
90 GOTQ70 

100 COLOR,,7,1:RESTORE:PRINT"B":CURS0R8, 
7:PRINT"Sto mescolando ì motìvi." sCURSOR 
8,15:PRINT"Un attimo di pazienzaS28":GOS 
UB430 

110 DinA$C93,B$C93,C$C93,D$C93 

120 FORK=0TO9:READA*CK3,B$CK3sNEXT:FORN= 

0TO9 

130 K=INTC10*RNDC1 33 :C$CN3=A$CK3 :FORf1=0T 

09 : IFM=NTHENNEXTN:G0T0160 

140 IFC$Cf13=C$(N3THEN1 30 

150 NEXTP1,N 

160 FORN=0TO9 

170 K=INTC10*RNDC133:D$CN3=B*CK3 :FORM=0T 
09 : IFf1=NTHENNEXTN =GOTO200 
180 IFD$CM3=D*CN3THEN1 70 
190 NEXTM, N 

200 PRINT"B":PRINTTABC103"RIUNISCI LA... 

MUSICA":R=0:U=0:PRINT 

210 IFR>39THENA=24:B=R-38:GOTO240 

220 IFR>19THENA=12:B=R-18 :GQTO240 

230 A=0:B=R+2 

240 CURS0RA,B:PRINTUSING'##" ;R+1 ; SPRINT" 
"J :INPUTK$:X=UALCLEFT$CK$,133:T=UAL(RIG 
HT*CKS,133:TEnP05:nUSICC*CX3:FORK=1TO250 
0:NEXT:MUSICD$CT3:R=R+1 

250 FORK=0TO9:1FCLEFT*(C*CX3,4 3 =LEFT*C A# 
CK3,433*CLEFT*CD$CY3,43=LEFT*CB*CK3,433T 
HEN14=U+1 :GOTO270 
260 NEXT :G0T0210 

270 PRINTTABCA+83"ffl*":F0RK=1TO10:CURSOR0 
,23:PRINT" 

"sPRINTTABC123"fflHAI INDOUINATO!28":GOS 
UB420 =NEXT:IFU=10THEN290 

280 CURSOR0,23:PRINT"Devi ancora indovin 
are" ; 10-U;" motivi":G0T0210 

290 COLOR,,0,4:PRINT"B":CURSORI 1,7:PRINT 
"CONGRATULAZIONI 2 2 2 ":PRINT:PRINT:PRINT '? 
RINT-’HAI TERMINATO IL GIOCO IN";Ri" TENT 

ATIUI" :CURSOR0,22:PRINT"Se vuoi giocare 
ancora premi un tasto" 


300 GET2*:IF?$=""THEN300 
310 GOTO100 

320 DATA HAIR0HA1RI HAIR0HA1 R0HA1B3+G1 RI 
+G3+F1R1+F3+HD5,F1R0F1R1F1R0F1HD3D3C3HD3 
C1R1C3 

330 DATA A3HF3D3HF3+HC3B5R3A3HF3D3HF3B3 
A5,AIRIA3B3G3A3HF5E3HF3G3A3HF3E305 
340 DATA DIR1D1R1D1RID3E3D3C3-B3D3G1RIG 
1R1G3A3B3,B1R1B1R1B1R1B3+C3B3A3G1R1G3A1R 
1 AlR1A3B3A3 

350 DATA E1HD1E1F3E1Al RI E1HD1E1F3E1HG1, 
E1 HD1E1F1E1+D1B1HG1 E1 DIHC1C3 
360 DATA 81 A1 B1 HF 1 DI HF 1 -B1 R1 B1 Al B1 HF1 DI 
HF1-B1, B1+HC1+D1+HC1+D1B1+HC1B1+HC1AlB1A 
IBI GlB1 

370 DATA -G0R1 -Gl-HG0R1-HG1-G0R1-G1C0RI 

C1HD0R1HD1HG0R1H&1G1,G0R1Gl+ C0R1+C1G0R1G 

1HD0R1HD1F0R1F1HD0R1#D1DI 

380 DATA -B1-Al-HG1-AlC5D1C1-B1CIE5,F1E 

1HD1E1B1A1HG1A1B1A1HG1A1+C1 

390 DATA C3R1C3D3C3R5A3R1A3HA3A3,A3R1+C 

3HA3A3R5G3R1A3G3F3 

400 DATA C0R0C0R1C0R0C0R1F0R0F0R1E0R0E0 
RID0R0E0R1D0R0E0R1D0R0C1-Al,-A0R0-A0R1-A 
0R0-A0R1C0R0C1R0-HA1R3E0R0E0R1E0R0D1 E1F1 
410 DATA E1R0E3G1RIC1R0C3E1R1F2E2D2,GlR 
0A1R1 Al RIF1R0G3F2D2C2 
420 TEMP07:MUSIC"+C1":RETURN 
430 TEMP07sMUSIC"CID1E1F1G1A1B1":RETURN 
440 PRINT' B":CURSOR0,4 SPRINT"Quando appa 
re sul lo schermo i I <?> , de v i-i ntrodurre 
una coppia di numeri,ciascunocompreso tr 
a 0 e 9.":PRINT SPRINT 

450 PRlNT'Uerranno eseguite due brevi mu 
sichette, separate da un interuaIIo,cias 
cuna cor-rispondente al numero introdot 
to." :PRINT:PRINT 

460 PRINT"II 9 loco consiste nel far eseg 
uire per intero i dieci motivi."SPRINTs 
PRINT 

470 PRlNT"Attenti a ricordare a quale nu 
mero cor-risponde ciascun brano."SPRINT 
SPRINT :PRINT"Premi un tasto e buon diver 
timento!22":GOSUB430 
480 GET2$:IF2*=""THEN480 
490 RETURN 
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il computer 
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Abbiamo visto come le opera¬ 
zioni elementari siano fonda¬ 
mentalmente AND, OR e NOT. 
Combinando queste operazioni, 
possiamo costruire delle 
"espressioni" che vengono det¬ 
te "logiche" o "booleane" (da 
Boote che per primo le usò per 
risolvere problemi di tipo logi¬ 
co). 

Supponiamo di avere in una 
stanza una lampadina (L) che 
possa, naturalmente, essere 
accesa o spenta (0 o 1 ). 

La lampadina può essere consi¬ 
derata una variabile con due so¬ 
li valori possibili, quindi una va¬ 
riabile binaria. 

La lampadina sarà collegata a 
degli interruttori, ciascuno dei 
quali può interrompere (0) o per¬ 
mettere (1) il passaggio della 
corrente, e quindi influenzare lo 
stato della lampadina. 

Se indichiamo con XI, X2, ecc. 
gli interruttori, potremo dire che 
la variabile (booleana) L è fun¬ 
zione delle variabili XI, X2. 

cioè: 

L = f(X1,X2,...) 

Immaginiamo che la stanza ab¬ 
bia due porte (A e B) con accan¬ 
to due interruttori (XI eX2). 
Quando gli interruttori sono en¬ 
trambi aperti (XI = 0, X2 = 0), la 
lampadina deve essere spenta. 
Quando uno dei due è chiuso 
(XI =1, X2 = 0 oppure XI =0, 
X2= 1) la lampadina deve esse¬ 
re accesa. Ma se, entrando da A 
e uscendo da B, vogliamo la¬ 
sciare la luce spenta nella ca¬ 
mera, occorrerà che sia L = 0 
quando XI = 1 eX2 = 1. 

In sintesi, quando gli interruttori 
si trovano in in uno stato diver- 



I circuiti 


logici 


a cura di Duccio Alfano 


so, la lampadina deve essere 
accesa, quando gli interruttori si 
trovano nello stesso stato, la 
lampadina deve essere spenta. 
La situazione può essere sche¬ 
matizzata nella seguente tabel¬ 
la della verità: 


XI 

X2 

L 

0 

0 

0 

1 riga 

0 

1 

1 

Il riga 

1 

0 

1 

III riga 

1 

1 

0 

IV riga 


Per ottenere la funzione che 
esplicita la dipendenza di L dai 
valori di XI e X2, può essere uti¬ 
lizzata la seguente tecnica (sin¬ 
tesi per "somma di prodotti"): 

a) si individuano le righe in cui la 
grandezza da sintetizzare vale 1 
(nel nostro caso la Mela III) 

b) per ciascuna riga si esegue il 
NOT (complemento) delle varia¬ 
bili indipendenti che compaiono 


con valore 0 e si fa l’AND (pro¬ 
dotto logico) delle grandezze 
cosi ottenute (nel nostro caso): 


II riga XI =0 va complementata - XI 

X2 = 1 resta inalterata -* X2 

AND dei risultati -* X1AX2 

III riga: XI =1 resta inalterata -* JH 

X2 = 0 va complementata -* X2 
AND dei risultati -* XI À75 


c) si esegue l’OR (somma logi¬ 
ca) delle espressioni ottenute 
per ciascuna riga: l’espressione 
finale rappresenta L. 


L = (X1aX2) V(X1 aX2) 


Verifichiamo la correttezza del 
risultato: 


seXI =0eX2 = 0deve essere L = 0 
difatti: 

TT= l7?=1 » L = (1a0)v(0a1)=0v0 = 0 

seXI =0eX2=1 deve essere L = 1 
difatti: 

XI =1.X2 = 2 - L = (1 Al )v(0a 0) = 1 vO = 0 

se XI = 1 e X2 = 0 deve essere L = 1 
difatti: 

Xi=orXT=1 =» L = (0a0)v(1a1)=0v1 =0 

se XI = 1 e X2 = 1 deve essere L = 0 
difatti:_ 

TT=0,X2 = 0 =» L = (0a 1 )v( 1 a0) = OvO = 0 


Per realizzare il nostro circuito 
occorrono dunque 

2 NOT, 2 AND, 1 OR 
collegati secondo lo schema: 


fig. i 
































(Lo schema ora realizzato è solo 
uno dei tanti possibili, e non è af¬ 
fatto detto che sia il più sempli¬ 
ce: il lettore più attento si sarà 
accorto che la nostra variabile 
si sarebbe potuta ottenere con 
un solo circuito XOR. Però la 
tecnica usata è generale e mol¬ 
to utile nella sintesi di circuiti 
complessi). 


DENTRO IL COMPUTER 


(4afcgfiUi—-i 



I circuiti di un calcolatore ven¬ 
gono progettati secondo una lo¬ 
gica identica a quella ora de¬ 
scritta. 

II calcolatore impara a fare le 
somme. 

Vediamo per esempio come 
possiamo progettare un som- 
matore binario. Per prima cosa 
dobbiamo capire come si fanno 
le somme in base due. Il proce¬ 
dimento non è molto diverso da 
quello che usiamo normalmente 
(in base dieci): si incolonnano le 
cifre e si sommano a due a due, 
tenendo conto (come nelle som¬ 
me normali) dell’eventuale ri¬ 
porto. 

Bisogna però ricordare che nel 
sistema binario 1+1=10: 
se troveremo incolonnati 1e1.il 
risultato sarà 0 col riporto di 1 ; 
volendo sommare i due numeri 
10110 el 1100: 


111 riporto 

10110 + 

11100 

110010 


Il circuito sommatore binario 
dovrà dunque essere composto 
da tanti sommatori elementari 
quante sono le cifre dei numeri 
da sommare, aventi ciascuno 
tre ingressi (le due cifre da som¬ 
mare e l’eventuale riporto della 
somma precedente) e due usci¬ 
te (la cifra somma e il riporto per 
la somma successiva). 

La figura seguente mostra lo 
schema di massima di un som¬ 
matore (seriale) di numeri di 4 
bit. 


fig. 2 


Nel 

prossimo 

numero: 

Sintensi di un 
sommatore binario; 
semplificazione delle 
espressioni logiche; 
uso dei circuiti NAND, 
A/O/?, XOR . 


po»r. 
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o 


Qi SOr-i/~> -A TOH è Qifj + Ato 

fil 2 
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Deltaplano 


A causa di un vento improvviso il vostro deltaplano sta scendendo velocemente. Dovete tentare un at¬ 
terraggio di fortuna tra le montagne. Vi muovete tramite i tasti cursore 5 e 8. 

Buona fortuna. 


1 REM DELTR 

2 PRINT RT 10,3;"UUOI LE ISTR 
UZIONI? (S/N) " 

4- PRUSE 4-E4- 

5 IF INKEY**"S” THEN GOTO 260 

6 IF INKEY$« M N" THEN GOTO IO 
10 LET R =0 

20 LET B*15 

30 LET C*INT (RND*31) 

31 IF C = 15 OR C-16 OR C*17 OR 
0 = 14. THEN LET C=31 

35 CLS 



70 PRINT RT R , B;"* 


80 PRINT RT R,B; . . 

90 LET B »B-(INKEY|"B M J♦(INKEY 
$ = •' 8 " ) 

100 LET R*R-fi 

110 IF R =20 RND B=C THEN GOTO 1 
40 

120 IF R =21 THEN GOTO ISO 
130 GOTO 70 
140 FOR T«0 TO 20 
150 PRINT RT 10,1; . 

B" ; RT 10,1; "SEI RTtERRR* 

160 NEXT T 

170 GOTO 210 _ 

180 PRINT RT R,B; " ■ ";RT R-1,B 

'190~PRINT RT 10,0; "SEI FINITO C 
ONTRO LE MONTRGNE . 

195 PRUSE 200 
200 GOTO 210 
210 CLS 

220 PRINT RT 10,3;"UUOI RIPROUR 
RE? (S/N)" 

230 PRUSE 4E4 

240 IF INKEY$ *"S** THEN RUN 
250 IF INKEY $*"N" THEN STOP 
260 CLS 

270 PRINT RT 0,6;" DELTRPLRNO " 
280 PRINT RT 1,6; ..wmmmmmmmmmmmm" 

285 PRINT "SCOPO DEL GIOCO:RTTE 
RRRRE CON IL TUO DELTRPLRNO SUL 
TERRENO." 



290 PRINT "DEUI RIUSCIRCI CERCO 
NDO DI EVI - TRRE LE MONTRGNE." 

300 PRINT "USR I Tfl5TI:5*3INIST 
RR 8 «DESTRO" 

303 PRINT RT 19,1;"PREMI UN TRS 
TO PER INIZIRRE." 

305 PRUSE 4E4 
310 CLS 
320 GOTO IO 




H4 





























Perché non ti abboni? 




pensaci! 





Bowling 

Sedici birilli si posizionano in fondo alla pista. Prendete la mira usando i tasti 5 e 8 e lanciate la palla 
premendo il tasto 0. Dopo otto palle il gioco termina e viene visualizzato il punteggio. 

Occhio ai tiri con l'effetto!I! 


LET 

LET 

LET 

LET 

FOR 

FOR 


© rCODE *• *• 

5=0 

C=© 

M*CODE "■ " 

B=H TO CODE " a 
fl=MfC TO CODE 
B,R;"T" 


PRINT RT 
NEXT R 
LET C =C +M 
NEXT B 
LET X=CODE 
LET F=M 
LET Y=CODE 


*"-C 


LET XaX+(INKEY$= ,, 8 M 
V‘) - (INKEYB = "5** RND 


RND X<C 
X > CODE 


PRINT RT Y,X; 
IF F >CODE •*r” 


THEN GOTO COD 


1 
2 
3 
4. 

5 

6 
7 
3 
9 

10 
li 
SO 
£3 
30 
ODE 

.... j 

35 

4.0 

c J 

DE "U" 

50 GOTO CODE ";" 

E0 PRINT RT Y,X+M; 

35 IF PEEK (PEEK I639B+URL "25 
6 "4PEEK 16399)«COSE ~T~ THEN LcT 
Q =Q +M 

70 PRINT RT Y,X>M;"0";RT Y,X + M 
; **B“ ; RT Y , X+M; *• •' 

80 IF T Y*H-M THEN LET F=F-*H 
90 IF 0>5 RND RND <URL . 5 THE 
N LET X»X-H 

95 IF O > 5 x RND RND )URL # * .6 ” THE 
N LET X=X>H n 
100 LET 5=0 

110 IF Y=H-H THEN RETURN 
120 GOTO CODE "U" 

150 PRINT RT £0 >12; "PUNTEGGIO = " 

9 


IF INKEY 9 =**0*' THEN GOSUB 
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Tiro al piattello 


Cobite il bersaglio alla vostra destra auante più volte è possibile. Se avete un'ottima mira aumentate 
la difficoltà selezionando la distanza dal bersaglio. 


COMANDI 
A = alto 

Z = basso 

NEW LINE = fuoco 



1 REM ******************* 

2 REM TIRO AL PIATTELLO 

3 REM a****************** 

10 LET M=0 _ 

20 PRINT RT 0/0;"6 ITTPTR? 5-30 


30 

4-0 

20 

4.5 

50 

60 

70 

30 

30 

100 

110 

120 

M 

130 
14.0 
150 
160 
170 
O 220 
100 
190 
200 
210 
*»"Z M 
215 
220 
225 
230 
240 
250 

0 

260 
40 
270 
230 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
4 30 


INPUT E 

IF E>=31 OR E < =4 THEN GOTO 
CL5 

LET R = 10 
LET 3=24 
LET C=0 
LET D =0 

PRINT RT 5/21;"MANCATI.. ~;C 
PRINT RT 7/21;"COLPITI.. D 
PRINT RT 3/21; "GITTATA. . ; E 

PRINT RT 10/21; -ALTEZZA. .**; 

PLOT 0/A 
PLOT E/B 
UNPLOT 0/A 
UNPLOT E/B 

IF INK£Y*=CHR* 113 THEN GOT 

LET F = INT <RND*2) 

IF F =0 THEN LET B=B4l 
IF F = 1 THEN LET B=B-1 
LET A=A+ (INKEY$ = "A") - VINKEY 
) 

GOTO 130 
FOR N = 1 TO E 
PLOT E/B 
PLOT N/A 
UNPLOT N/A 

IF N=E AND A =B THEN GOTO 28 
IF N=E AND A < > B THEN GOTO 3 
NEXT N 

FOR N = 1 TO 5 
PRINT RT 0/0; 

PRINT RT 0/0;** 

NEXT N 
LET D =D +1 
GOTO 90 
FOR N =1 TO 5 
PRINT RT 0/0; "B3Z&EHB* 

PRINT AT 0,0;" 

NEXT N 
LET C=C+1 

IF C =4 THEN GOTO 410 
GOTO 90 

IF D > M THEN LET M=D 
CL5 

GOTO 20 
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S.O.S. attacco alla terra 


Quattro navi spaziali appaiono minacciose nello spazio. Dovete difendere la terra, ma avete a dispo¬ 
sizione solo un vecchio cannone. 

Per sparare premere il tasto 0 . 

Attenzione!! La palla del cannone continuerà a muoversi solo se, dopo aver sparato, continuerete a 
premere il tasto 0. 


1 let pm»o 

2 CLS 
10 PAND 

14. LET C =0 
15 LET X =10 
1*5 LET PN=i3 
20 POR 1=6 TG 28 
30 PRINT AT 21,1; 

4.0 NEXT I _ 

50 PRINT AT 0, 13, "fil" , AT 0 , _1 
", AT 0>21, "m^OT 0,25;" 


60 

•V0' 

100 

101 

103 

104- 

105 

106 
10 7 
110 
120 
125 


PRINT AT 19,7; "i 


; AT 20,6 


LET D = INT (RND *4) 

LET C=C+1 

IF PN > PM THEN LET PM=PN 
PRINT AT 0,0,"MAX,= ",PM 
PRINT AT 3,0,"PUNTI=";PN 
PRINT AT 9,0;"COLPI=”,C 
IF C=ll THEN GOTO 3035 
LET P=0 
LET X = 10 

PRINT AT 13,11," 


130 PRINT AT 19,11; M 
135 PRINT AT 20,11;" 


200 IF D=0 THEN GOSUB 2000 

210 IF D=0 THEN GOTO 100 

300 IF D = i THEN LET P =4- 

305 IF D=1 THEN GOSUB 2000 

3l0 IF D = 1 THEN GOTO 100 

400 IF 0=2 THEN LET P=3 
4.05 IF D =2 THEN GOSUB 2000 

410 IF D=2 THEN GOTO 100 

500 IF D =3 THEN LET P = 12 

505 IF D = 3 THEN GOSUB 2000 

510 GOTO 100 
200 3 FOR A = 1 TO 20 
2310 PRINT AT A, 14+P; "•*" 

2015 PRINT AT P,14+P,“ " 

2320 IF INKEY$="0" THEN GOSUB 29 
00 

2030 IF 14- -fP «X — 1 AND 
PINT AT i3,X-2, 


A=19 THEN P 
AT 19,X-l;" 


AT 23 , X-2, ", 
204-0 IF 14- +P =X - 1 


AND A=19 THEN L 


E T PN 

l=PN + l+D 


2490 

NEXT A 


2500 

RETURN 


3005 

PRINT AT 

19,X; ” . ” 

3010 

PRINT AT 

19,X;" " 

2015 

LET XbX+1 


3020 

IF X =31 THEN LET X =10 

30 30 

RETURN 


3035 

PRINT AT 

13,0,“ 

3037 

PRINT AT 

9,7;"O" 

3040 

PRINT AT 

19,4;"COLPI 

TI." 

3045 

PRINT AT 

20,0," 


3350 PRINT AT 21,2;"VUOI GIOCARE 
ANCORA? (S/N)" 

3063 IF INKEV*=”S" THEN GOTO 2 
307O IF IMKEYJ<>"N" THEN GOTO 30 

60 

3030 STOP 

4010 PRINT AT 0,1;"DIFENDETE LA 
^ERRA";TAB 12; "—« 

4015 PRINT AT 4,3;"PREMERE 0 PER 

= pqpfiRE •• 

4030 PRINT AT 21,2;"PREMERE NEWL 
INE PER INIZIARE" 

4040 INPUT R$ 



SO 
























Finalmente l’estate! Dopo un 
lungo inverno ed una primave¬ 
ra fredda e piovosa, sembrava 
che la bella stagione non do¬ 
vesse arrivare mai. 

“È colpa dell’anno bisestile” 
andavano ripetendo con pun¬ 
tigliosa convinzione alcuni 
anziani nelle settimane pas¬ 
sate. 

Poi, come era naturale che ac¬ 
cadesse, ecco, all’improvvi- 
so, il sole, il caldo, la grande 
afa. Il popolo italiano, dopo 
giorni e giorni di tormenti, ha 
potuto, finalmente, rimuovere 
l’angoscia delle ferie senza la 
tintarella. Ormai è un fatto di 
costume, una nevrosi nazio¬ 
nale: agli italiani si può chie¬ 
dere qualsiasi sacrificio o at¬ 
to di generosità, ma guai a 
prospettargli solo l’idea di ri¬ 
nunciare all’abbronzatura 
che, con l’inflazione che fati¬ 
ca a scendere, è l’unico sta¬ 
tus Symbol a buon mercato 
che è rimasto ai poveri Bram¬ 
billa! 

E cosi, con il viso asciugato 
dal sole e dalla salsedine, il si¬ 
gnor Rossi di turno, vice ca¬ 
pufficio in banca, per qualche 
giorno, guardandosi allo 
specchio, si sentirà meno in¬ 
vidioso di Gianni Agnelli e so¬ 
gnerà qualche colpo grosso 
in Borsa. Finalmente, l’estate 
è arrivata anche per i ragazzi 
dopo mesi e mesi dedicati al¬ 
lo studio. 

Non vittime come gli adulti 
della schiavitù della tintarella 
o di altre manie del genere, i 
giovani pensano alle vacanza 
come momento di evasione, 


Buone 

vacanze 

con 

LIST! 


di contatto con la natura, di 
nuove amicizie. 

Anche LIST desidera andare 
in vacanza con loro, di tenere 
un po’ di compagnia, senza 
rubare troppo tempo alle sta¬ 
re insieme ed aM’aria aperta. 

La splendida farfalla della co¬ 
pertina di questo numero 
esprime, appunto, il simbolo 
della bella stagione trascorsa 
in libertà ma anche la convin¬ 
zione che natura e tecnologia 
possono convivere tranquilla¬ 
mente. 

Ed allora, nelle pause tra un 
impegno e l’altro, in qualche 
raro momento di noia che alle 
volte prende anche nelle più 
suggestive località di villeg¬ 
giatura, perché non divertirsi 
con intelligenza con l’amico 
computer? 


LIST, dicevamo, va in vacanza 
con i lettori, proprio per fare 
compagnia alle migliaia di ra¬ 
gazzi sparsi nelle stupende lo¬ 
calità marine e montane della 
penisola. 

Anche i giochi che LIST pub¬ 
blica in questo numero sono 
più vacanzieri che mai, giochi 
da farsi sulla spiaggia o su 
una terrazza, da soli o con gli 
amici, per sfoggiare le proprie 
doti di abilità e magari farsi 
quattro risate tutti insieme. 

Ma LIST, com’è suo costume 
ed a dispetto del solleone, 
nemmeno questa volta si ve¬ 
ste di sole frivolezze ed anche 
in vancanza non desidera in¬ 
terrompere il rapporto didatti¬ 
co instaurato con i lettori. 

Per questo motivo, anche nel 
numero estivo, LIST ospita 
due lezioni del bravissimo 
Duccio Alfano ‘‘I circuiti logi¬ 
ci” e “Geometria analitica e 
calcolatore”. 

I due formidabili “pezzi” rap¬ 
presentano solo un’idea di 
tutti gli argomenti interessan¬ 
ti che verranno affrontati a 
partire dal prossimo numero 
di settembre-ottobre che pub¬ 
blicherà, come al solito, listati 
a non finire con un particolare 
occhio di riguardo per il Sega 
3000 e lo Sharp i cui posses¬ 
sori si lamentano di non avere 
software a sufficienza. 

Perciò, amici lettori, attenti al 
calendario ed il 15 settembre 
di corsa in edicola ad acqui¬ 
stare LIST. 

Nel frattempo, davvero buone 
vacanze a tutti! 

Giovanni Maria Poi licei li 


5ì 
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La casa abbandonata 


Un guasto alla vostra automobile vi costringe a cercare aiuto!!! Ecco finalmente una casa... sembra di¬ 
sabitata. .. entrate e vi tuffate nel mistero. 

Spade e oro sono necessari per poter uscire dalla casa degli orrori!! 

Coraggio... comincia l'avventura!! 


1 REM CPSR 

2 FOR F = 1 TP 22 


wm 


m» 


5 

PPINT 

OT 

10,8; 

6 

PPINT 

OT 

11,7; 

7 

PRINT 

OT 

12,8; 

8 

PRINT 

OT 

13,7; 

9 

PRINT 

OT 

14-,7; 

10 

PRINT 

OT 

15,7; 

11 

PRINT 

OT 

16,7; 

12 

PRINT 

OT 

17,7; 

13 

PRINT 

OT 

18 ,7 , 

.14- 

PRINT 

OT 

19,7; 

15 

POUSE 

100 

16 

PR INT 

OT 

0,30, 

17 

PR INT 

OT 

1,29. 

18 

PRINT 

OT 

2,28, 

19 

PRINT 

OT 

3,27; 

20 

PRINT 

OT 

4- ,26, 

21 

PRINT 

OT 

5,25, 

22 

PRINT 

OT 

6,24, 

23 

PRINT 

OT 

7,23, 

24. 

PRINT 

OT 

8,22, 

25 

POUSE 

15 


26 

CLS 



28 

FOST 



29 

FOR F 

=1 TO £2 


PPINT 





3 1 

NEXT F 


32 

PRINT 

OT ' 

33 

PPINT 

OT 


PPINT 

OT 


OS 

PAU^F. 

200 

4.0 

CLS 


50 

SLOU 


55 

PRINT 

OT 

56 

PRINT 

OT 

60 

PRINT 

OT 


O SI C ROTTO NEL PEL MEZZO DI 
UN TERRIBILE TEMPO-POLE.STOTE CO 
MMINONDO LUNGO LO 5TPRDP OLLO 
RICERCO DI UN AIUTO." 

65 PPINT OT 6,0, 1 FINALMENTE UF 

DETE UNO COSO. BU53ATC. 

*’00 PRINT OT 18,0,"PREMERE UN T 

OSTO" 

85 IF INKEV * = "•• THEN GOTO 88 

66 CLS 

88 PPINT OT 0,0."LO PORTO SI P 

PPE. ENTPQTE. UNO STRONO SENSPZ 
IONE UI OSSOLE. UI UOLTOTE. LO P 
ORTO E SPOR ITO 

90 PPINT OT 3,0, "| 


-1 PRINT OT 4- , <0; "SIETE PURTROP 
PO COPITOTI IN UNO COSO DEGLI OR 
PORI." 

92 PPINT OT 7,0,"NELLO COSO E 
NASCOSTO ORO MOGICO CHE UI AIUTC 
PO O FUGGIRE." 


95 PPINT OT 10,0;"UI SONO NOSC 
OSTE ONCHE DELLE SPODE CHE UI SE 
PUIRONNO PER DIFENDERUI" 

96 PRINT OT 14. ,0, ' DOVETE TROVO 
RE OSSOLUTOMENTE ORO E SPODE. 

COMINCIRTE QUINDI O CERCORLI. 

100 PRINT OT 18,0;"PREMERE UN T 
OSTO OUOLSIOSI PER INIZIORE." 
105 IF INKEV $ = **** THEN GOTO 108 
109 CLS 
300 LET 5=100 
310 LET G =0 

3Z* LET l.lrP 


























asm r 


::: :::::: : i:: 
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500 C L 5 

505 SCROLL 
5®6 5CROLL 

510 LET P*="UNP LIBRERIfi" 

520 LET Ets-UNR 5RLR" 

530 LET C % ~"UN SALOTTO” 

531 LET D*=‘‘UNO CUCINA" 

532 LET E$="UNR CANTINA" 

533 LET G»="UNA CUCINA" 

534. LET H4 = "UNR STANZA DO LETTO 

540 LET A*INT (RNO*7)♦ 1 
550 IF 0 = 1 THEN LET F*=B$ 

560 IF 0=2 THEN LET F*=P* 

570 IF 0 = 3 THEN LET F*=C* 

580 IF 0*4 THEN LET F*=D* 

582 IF 0=5 THEN LET F$-E$ 

584 IF 0=6 THEN LET Ff=G$ 

586 IF 0=7 THEN LET F*=H* 

5*95 GOSUB 659 
600 SC.ROLL 
602 SCROLL 

610 IF F %=0 4 THEN GOSUB 7®0 

620 IF F*=B* THEN GOSUB 80® 

630 IF F*=CS THEN GOSUB 900 

631 IF F % =£> % THEN GOSUB 800 

632 IF F*=E* THEN GOSUB 700 

634 IF F $ =G % THEN GOSUB 90® 

636 IF F|rH$ THEN GOSUB 700 

640 SCROLL 

650 SCROLL 


659 
f 60 
66 1 

FOST 

CLS 

PRINT 

662 

PRINT 

f. 53 

for z 

654 

PRINT 

C 65 

NEXT 

e 66 

LET X 

667 

f OR Z 

668 

PRINT 

669 

LET X 

6 70 

NEXT 

671 

LET X 

6 72 

FOR Z 

673 

PRINT 

674 

LET X 

6 75 

NEXT 

676 

LET X 

677 

FQR Z 

678 

PRINT 

679 

LET X 

680 

NEXT 

65 1 

FOR Z 

**2 

PRINT 

633 

NEXT 

684 

PRINT 

7 21 

. 8, F » 


PTT 19,5, 
‘0 TO 4 


>29 TO 25 STEP -1 
PT x,z, V 

tX + 1 


»X-1 


or z,x,*V 

'X *1 

f 

■ 6 TO 18 


; OT Z , 24. ; - V 


IN 


; p 


655 5LOU 
686 POUSE 100 
690 RETURN 

700 PRINT "(l)ESPLORORE (S)CERC 
ORE BOTOLE** 

710 INPUT U 

72® IF U = 1 THEN GOSUB 1000 
730 I» V=2 THEN GOSUB 11®0 

735 SCROLL 

736 SCROLL 
7 <lO GOTO 51® 

800 PRINT " t 1)ESPLOPOPE (2)ANOP 
RE VIP" 


310 

INPUT E 



820 

IF E = 1 THEN 

GOSUB 

1000 

6 30 

IF E=2 THFN 

GOSUB 

1300 

333 

SCROLL 



836 

SCROLL 



840 

GOTO 510 



900 

PRINT ”1*ESPLORI 2\RIPOSI 

) VOI 

VIP- 



910 

INPUT O 



920 

IF 0=1 THEN 

GOSUB 

1000 

930 

IF 0=2 THEN 

GOSUB 

1400 

940 

IF 0=3 THEN 

GOSUB 

1300 

943 

SCROLL 



94 6 

SCROLL 



950 

$0T(5 51® 




1006 SCROLL 
1005 SCROLL 

1010 LET O = INT (RNDti) +1 
1020 IF 0=1 THEN GOSUB 1500 
1030 IF 0=2 THEN GOSUB 1600 

1040 IF 0=3 THEN GOSUB 1700 

1041 IF 0=4 THEN GOSUB 1320 

1042 SCROLL 


1043 SCROLL 
1050 RETURN 

1100 SCROLL 

1101 LET O *INT <RND*21 ♦! 

1103 IF 0=1 THEN PRINT "NON CI S 
ONO BOTOLE." 

1104 IF 0=2 THEN GOSUB 1107 

1105 POUSE ©0 

1106 RETURN 

1107 PRINT "TROURTE UNO BOTOLO C 
HE VI PORTO" 

1108 SCROLL 

1110 PRINT "IN UNO ALTRA STANZA" 

1111 POUSE 80 

1112 SCROLL 
1114 SCROLL 
1120 RETURN 
1300 SCROLL 
1310 RETURN 
1315 SCROLL 

132® PRINT "NON TROUPTE NIENTE" 
1330 POUSE 80 
1340 RETURN 

1400 SCROLL 

1401 LET O = INT rRND*2) -fi 

1402 IF 0*1 THEN PRINT "VI PIPO© 
OTE E POI PROSEGUITE" 

1403 IF 0=2 THEN GOSUB 1406 

1404 POUSE 80 

1405 RETURN 

1406 PRINT "MENTRE RIPOSATE ARAI 
VP UN LODOO " 

1407 SCROLL 

1408 PRINT "CHE VI RUBO ORO E OR 
MI" 

1409 LET G=G-G 

1410 LET U=U-U 

1411 POUSE 80 

1413 SCROLL 

1414 SCROLL 
142® RETURN 

1500 GOSUB 659 

1501 SCROLL 

^^0 PRINT "PUETE TROVATO. • .1 

1511 PRINT OT 14,8; 

1512 PRINT OT 15,8; 

1513 PRINT OT 16,3, 

1514 PRINT OT 17,8; 

1515 PRINT OT 13,6; 

*516 POUSE 100 
1520 LET G=G+20 

1530 LET S*S+10 

1531 IF 5>350 THEN GOTO 1800 

1532 SCROLL 
1534 SCROLL 
1540 RETURN 
1600 FOST 
1610 CLS 

1615 LET O «INT (PND»3) ♦1 
1620 IF 0 = 1 THEN LET ti* 



1630 IF 0=2 THEN LET H0 = * 


) 



1640 IF R-3 THEN LET M«*‘ 





1645 PRINT "AVETE INCONTRATO UN 

M* 
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SINCLAIR ZX-81 16K 


164-8 PRUSC 80 
165® Cl_S 
1651 5LOU 

1655 PRINT "RVETE UNA SPROR ?" 

1656 IF U =0 TMEN GOTO 2115 
1660 IF U<1 THEN GOTO 1660 
1665 PRINT "SI” 

167® LET U=U-1 

1675 PRINT "LO AVETE UCCISO" 

1678 PAUSE 150 
1680 GOTO 510 
170® GOSUB 65® 

17®1 SCROLL 

1710 PRINT “AVETE TROVATO UNA SP 
PDA" 


1711 PRINT AT 0,14-;" 

1712 PRINT AT 10,14 

1713 PRINT AT 11,14 

1714 PRINT AT 12,14 

1715 PRINT AT 13,14 

1716 PRINT AT 14,14 

1717 PRINT AT 15,14 

1718 PRINT AT 16,14 
171® PRINT AT 17,14 
1720 PRINT AT 10,14 
1725 LET U=U4l 
1730 LET 5*5+10 

1740 IF 5>35® THEN GOTO 



1800 


1745 SCROLL 
1750 SCROLL 
176© RETURN 
1800 CLS 


1820 PRINT AT 5,10; 

183 0 PRINT PT 10 , O, 

ET Fut 

1840 PAUSE 100 
1845 CLS 

1850 PRINT AT 5,0;"ORAVI.SIETE U 
SCITI DALLA CASA ABBANDONATA." 
,AT 8,0,"DURANTE LA FUGA AVETE G 
UADAGNATO £",G*5,",000 IN ORO E 

£",U*5;",00® IN SPADE." 

1851 PRINT AT 14,0;"V I PIACEREPB 
E DIVENTARE ANCORA 


( S-^N* 



1855 

PAUSE 

500 

1860 

IF INKEV |s"] 

® 



1870 

IF INKEV*=" 

1880 

IF INK.EYir" 

0 



19®0 

CLS 


1910 

PRINT 

"SfiGG 

O” 



1920 

STOP 


2000 

CLS 


2010 

PRINT 

"COME 

2012 

PAUSE 

50 

2015 

CLS 


2020 

GOTO 

510 

2 100 

CLS 


2115 

PRINT 

"CHE 


THEN GOTO 1050 


SAGGIA DECISIONE.CIA 


COME SIETE AVIDI' 


TE RIUSCITI A FUGGIRE” 
2120 STOP 


Programma: DINAMITE (ZX- 
SPECTRUM), pagg. 23 e 24 LI¬ 
ST n. 3 

Linea 4010 leggi: “Premi un 
tasto quando l’omino è sopra 
la bandiera” 

Linea 8040 leggi: “OBIETTIVO 
DELGIOCO” 

Linea 8060 leggi: “BONUS” 
Linea 8240 leggi: “LIVELLO 
DI DIFFICOLTA (0-9)” 

Linea 8245 leggi: “COMANDI: 
Z x p L” 

Linea 8247 leggi: “A, S” 

La linea 250 continua all’inizio 
della seconda colonna di pag. 
24 (seguita dalla linea 300) 

Programma: EXTRA-TERRE¬ 
STRE (ZX-SPECTRUM), pagg. 
32,33,34 LIST n. 3 
Linea 90 leggi: “1”, “2”, “3” 
Linea 120 leggi: “UN MO¬ 
MENTO PREGO” 

Linea 890 leggi: “R”, “S” 
Linea 910 leggi: “ARRIVE¬ 
DERCI” 


Errata 

corrige 


Linea 1530 leggi: “R”, “S” 
Linea 1560 leggi: “ARRIVE¬ 
DERCI” 

Linea 1710 leggi: “A”, “P” 
Linea 1730 leggi: “1”, “Q”, 
“N”, “M” 

Programma: ZX SOFT SHOP 
(ZX-81), pagg. 89 e 90 LIST n. 3 
Linea 100 leggi: “ZX SOFT- 
SHOP” 

Linea 1100 leggi: “RISULTATI 
PER” 

Linea 1300 leggi: “TASSE DO¬ 
VUTE” 

Linea 1320 leggi: “BANCA¬ 
ROTTA” 

Linea 1600 leggi: “CASSA”, 
“STOCK” 


Per un errore di composizione, il 
programma apparso sul nume¬ 
ro 3 di LIST alla pagina 42 ed in¬ 
dicato per lo SHARP MZ-700, 
era in realtà destinato ad un 
computer diverso, cioè l’ORIC 
1 . 

Ce ne scusiamo con tutti i lettori 
possessori dello SHARP per i 
quali pubblichiamo lo stesso 
programma nella versione adat¬ 
ta al loro computer. 


Programma: INVADER 
(CBM64), pag. 46 e 47 LIST n. 3 

- Linea 9000. Inserire alla fine di 
questa i seguenti DATA: 177,29 

- Linea 8075. Termina con chiu¬ 
sura apici e punto/virgola (;) 




















Salvate gli omini 


Dovete difendere gli omini che si trovano sulla superficie del pianeta dal rapimento di esseri sconosciuti. 
Il pianeta è abbastanza piccolo per cui potete orbitarvi intorno. Attenzione alle bombe vaganti!!! 

CARATTERI GRAFICI 

SHI indica che il CAPS SHIFT deve essere premuto con il carattere successivo. 

EXT indica il modo E (CAPS SHIFT e SYMBOL SHIFT). 

GRA indica il modo grafico. 

Esempi 

EXT SHI 4 = colore INK 

EXT 6 = colore PAPER 


ISTRUZIONI 

340 “(GRA) c” “(GRA) B” “(GRA) A” 

450 “ v (GRA) FGHI” 

460 “v (GRA) DE” 

470 “ v (GRA) J” 

610 “ v (GRA)FGHI” 

“(EXT SHI 6) v (GRA) FGHI” (EXT SHI 0) 

660 “v(GRA)J” 

“(EXT SHI 2) v (GRA)J” 

760 “ v (GRA) DE” “(EXT SHI 4) v (GRA) DE” 

“(EXT SHI 4) v (GRA) DE” (EXT SHI 0) 

770 “(EXT SHI2) v (GRA)J” “(EXT SHI 2) v (GRA)J” (EXT SHI 0) 

840 “ v (GRA) DE” “(EXT SHI 4) v (GRA) DE” (EXT SHI 0) 

870 “ v (GRA)DE” “(EXT SHI 4)” v (GRA)DE” (EXT SHI 0) 

890 “ v (GRA) DE” “(EXT SHI 4)” v (GRA)DE” (EXT SHI 0) 

940 “ v (GRA) FGHI” “(EXT SHI6) v (GRA)FGHI” (EXT SHI 0) 

950 “ v (GRA)DE” “(EXT SHI 4)” v (GRA)DE” (EXT SHI 0) 

980 “v (GRA)DE” “(EXT SHI 4) v (GRA) DE” (EXT SHI 0) 

1020 “ v (GRA)A” “ v (GRA)B” 

1040 "(GRA) DE” “ v (GRA) A” “ v (GRA) B” “(GRA) DE” 

“v (GRA) A” “v (GRA) B” 

1180 “ v (GRA) FGHI” “(EXT SHI 6) v (GRA)FGHI” (EXT SHI 0) 

1360 “ v (EXT SHI 6)(GRA)FGHI” (EXT SHI0) 

1430 - v (EXT SHI 6)(GRA) FGHI” (EXT SHI 0) 

1450 “v(GRA)DE”“v(GRA)J” 

NBH segno v indica uno spazio. 


10 REM 
20 REM 
30 RUM 
4» REM 
50 REM 
60 REM 
70 REM 
60 REM 

90 PORC-fR 1 POPE R 1- INK 7: C 
L3 

100 PRINT TRE 7, FLRSH 1,"5RLUR 
TE GLI OMINI", ELR3H 0 
110 PRINT '' M Dovete difendere 
gli OBini che si trovano sulla s 
uperficie del pianeta dal rapine 
nto di esseri sconosciuti 
120 PRINT ”Ii pianeta e'abbasta 
nza piccoio.pertanto potete orbi 
tarvi intor-no. ritenzione ! .. ,pc 
r distrarvi dall'obiettivo prtnc 
«pale gii invasori hanno escogit 
»to una bon-ba UfiGflNTE' 


i 


SRLVfì LR TERRA 


130 PRINT “La vostra astron^vtp 
otra ' resìstere solo a tre attacc 
hi'!!'" 

140 PRINT "COMRNPI : ■ a sali 



discesa 

- laser” 


150 PRINT TRB 10,“ 

160 PRINT TRB IO. 

PRINT ,M 

PAUSE 
leo RE5TORE *60 
190 POR i=USR "a” TO USR 
200 READ X POKE i,X 
210 NEXT i 

220 RESTORE 530: CLERR 32500 
230 POR i=32500 TO 32535: READ 
X : POKE i ,X NEXT i 
240 BORDER 1: PAPER 1: INK 0: C 
LS 

250 PLOT 0,6 
260 LET y =0 
270 LET p =-1 
280 POR j=l TO 3 
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390 LET a=3*INT (7*RND) 

3C»0 GO SUB 1220 

310 DROU 4,15-y: DRRU 8,0 

320 LET y=15 

330 LET p=p«a»l 

340 POR fc=l TO INT (4»RND)+1; P 
RINT INK 5, OUER 1,PT 20-»l ,P, "4" 
: NEXT K : PRINT INK 3, ftT 20-k,p, 
”A”,*T 19-1 ,P, -*> • 

350 NEXT j 
360 LET a =30 -p 
370 GO SUB 1220 
360 DRRU 11,8 y 


390 

LET 

S X 

= 3 

LET sy=10 



400 

= 26 

LET 

ax 

= INT 

(15 *RND» • 

LET 

•V 

4 10 

LET 

bx 

= INT 

(RND*15): 

LET 

by 


=30 IF bx=ax TMEN GO TO 410 

420 LET t =0 

430 LET e =0. LET h=3 


440 

LET d»=0 

LET 

S C =0 

450 

PRINT INK 

1, PT 

4 X , 4 V , 

460 

PRINT INK 

4; PT 

• x , ay , - <*>•• 

470 

PRINT INK 

2, PT 

bx , by ; ** O ' 


400 DRTP I,57,lft9,107,l46.284.1 

24,124,56,56,56, 104.76,6© . ©0,196 
490 DfiTR 12©,3©,60,24,SO,102,19 
5, 255 

500 DPTP 63,99,193,193,127,28,7 
,3,252,198,131,131,254,56,P24,19 
2 

510 DOTO 255,63,15.7,3.7,255,0, 
192,240,252,255,255,255,240,3,0, 
0,31,249,224,255.252.240.0,0.0.1 
92,248,255.0.0 

520 ORTO 28,2©,244.199.227.47,5 
6,56 

530 DRTP 33,1.64.1^.0,64,26,1,3 
1,0,237,176,18,35.19,©2,88, 180,3 
2,242,6,22,19 -,26,1,31,0,237,176 
,18,35.19,193,1©.243.201 
540 LET v=IJ5R 3? r P»C 
©50 LET x$:INKFV| 

560 LET nxrsx ♦ l.v»r-x") USX (18) - 

u$ = "tr r * ( s x >0i 

570 1F nx-SX THEN GO TO 600 
580*LET V $ = 5CRFEN$ (nx # SM*l) : L 
ET w$ = SCf5EEN$ lnx,sg+2) LF.T x* = 
SCREEN4 <nx,s«J+3) LET v % -=v % % ■« 

* $ 

590 IF V $ < > '* •* TMFN GO TO 130 

0 


< n x , s y *4 ) <>** 

1 . RT s x , s u -1 ; 


TP bU < 0 THFN L 
69=31 THFN OO 


©00 IF SCREEN$ 

HFN GO TO 13O0 

6 10 PRINT O'-TR 
fc p ', p r n x , s y , Ti 

©20 LET s x =n v 
630 LET by — h’J - 1 
FT by=31 

640 ir RND>.- OR 
TO 680 

650 LET n X = bx ♦ « s x - 1 > bx > - C s X - 1 < b 

v » f»by=fy+Pt 

660 PRINT OUER 1, PT bx.by, " , 

RT nx,by, " ^ ’ 

670 LET bx =r>x 

680 IF bx=5x PND PB6 (bU-sy-1) « 
=1 THEN GO TO 1300 
690 IF xlo-p" THEN GO TO 780 
700 ©EEP .1,4 
710 PLOT INK 3, 

170 0*SX 
720 DRRU 
, 0 

730 ©EEP 
740 PLOT 
170-8*SX 
750 DRRU 
/ 0 

760 IF ax=sx ond av >sg+ 4 pno ay 
•30 THEN FOR >=1 TO 1 BF.EP .1,6 

print ouf.r i . pt a< .ay-l, •• <5>- 

NEXT K LET ax=INT C15*RND). LE 
T a y =29 PRINT RT a x, ay-i," *&>' 
LET fCrSf41O0 

7 70 IF bx=«,.« PND bu >SM 44 PND by 

<30 THEN FOR ►. = 1 TO 5 BFF.P .1,1 
0 PRINT OOER 1, PT bx,by,'- N 

rv TU I FT t.k«1+TWT »PNr«14. LE 
r by^30 print m bx.bu," LE 

r sc-sc*?0 

7 ©0 LET ayr* 1 .!- 1 IF 39^0 THEN L 
ET ay =31 

790 IF RND>.7 OR 3U'=?9 THEN GO 
TO 54 0 


INK 3, 

• 1 . © 

INK 0, 

INK 0, 


OUER 

OUFR 

OUFR 

OUFR 


1, PlSy 443 , 

1.212- 8*49 

1 , ©ISM 443, 

1.212- 8*49 






800 let nx=ax*(ax<10)-t: IF ax» 
18 THEN GO TO 820 
810 LET v$=SCPEEN$ Inx,ay4l): L 
ET w %=SCREE N 4 (nx,ay42) IF V**w 

4 < > ” " THEN GO TO 670 

820 LET ny=ay♦(ax=18) 

830 IF nyoay pnd SCREEN* Cnx,n 
U*P) <>" •* THEM GO TO 87(3 

840 PRINT OUER 1, pt ax.ay;" <®>- 
, PT ox ,ny. •• <P” 

850 LET aytny: LET ax=nx 
©60 GO TO 540 

870 IF «PS IbX-ax)<«1 PND PBS C 
by-ay) <*1 THEN FOR 1=1 TO 11 BE 
EP .1,5: PRINT OUER 1,PT ax,ay." 

* . NEXT fc LET a X = INT <15«nND 
1 LET ay=29 PUTNI RT ax,ai,-‘ ^ 

P" 

880 IF PPS (sx-ax) < -=2 PND PBS ( 
by-sy)<:2 THFN GO TO 1300 
890 PRINT OU r R 1, PT ax . ay,** 

; PT ax -1 , ay , ** <£>" 

900 LET ax=ax-i: LET ay=ay-l: L 
ET by = by - 1 

910 IF ay < 0 THEN LET ay=31 
920 IF by < 0 THFN L FT bu=31 
930 LET v=U5P 32500 

940 PRINT OUER LRT SX,Sy-l, n 3 

• ; pt s.x,sy," “ 

950 LET f=0 

960 FOR x=ax-3 TO ax*3 
970 IF x >20 THEN GO TO 1020 
980 rOR y=au*l TO ay*3 
990 ir y v 0 OR y >31 THFN GO TO 1 
0 10 
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1000 IF RTTR (X =11 TMFN PPINT 
RT X,y; INK 1, *• " LCT f.-ffl 

1010 NfT XT y 
1020 NE XT x 

1030 IF f=2 THEN GO TO 1080 
10*0 PRINT rt ax , ay *3, INK l; •• " 

, rt ax 41, ay 4-2; ** ".or ax +P,ay*é' 

1050 LET ay = ay 4 1 : PRIMT OUER 1;R 
T ax ,ay-l; " <y k " ; RT ax.ay," <J>" 
1060 LET e se 4 1: IF e=3 THEN GO T 
O 1350 

1070 GO TO 54.0 

1060 PRINT OUER 1 . RT ax,ay;" <3> , ‘ 
; RT ax-l.ay;” <X>' 

1090 LET ax = a X -1 : REM LET au=au- 
1; IF ay<0 THEN LET ay*31 
1100 LET by = by -1 : TF by t 0 THEN L 
ET by =31 

1110 LET V =U5R 33500 

1120 PRINT INK 4 ,m ax*1,av; " 0 " 
,RT ax 42,ay; " A " 

1130 FOR »=ax-1 TO 0 3TEP -1 
1140 PRINT OUER 1. INK 4, RT I fi, 
ay; .RT 1 ■ " f rt k4:-%,ay 

A RT k , ay , <£>", R r fc*l,ay," t> 

',RT k 42,ay," A" 

1150 6EEP .2,15-k^P 
1160 NE XT k 

1170 LET e =0 LET hsh-1. IF h >0 
THEN GO TO 1350 

1160 PRINT PUER 1.RT SX,»y-l," 3 
>0 ", RT sx,sy," 

1190 PRINT INK 1, rii i , a y, ” ";RT 

2/ay/ '* 

1200 LET ax =0 LET ay-ray-1: IF a 

y <0 THEN LET ay = 11 

1210 GO TO 540 

1220 FOR a=0 TO 2*4-2 

1230 LET ly = INT (ThjRNP) -18 

1240 IF y 4 l y <. 0 THEN LET lyr-y 

1250 IF y 4ly >22 THEN LET ly=22-y 


1260 DPRU 4 , ly 
1270 LET y =y ♦ ly 
1260 NE XT ì 
1290 RETURN 

1300 PRINT INK S; FLRSH 1;RT 21, 
0, ■* Dann a 

1310 LET d»=d»4l: TF d»<3 THEN G 
O TO 1420 

1320 PRINT RT 21,14, FLRSH 1; IN 
K 7," IRRFPnnRRILI • • " . FOR S =229 
44 TO 23104 

1330 IF PEEK S=ll THEN BEEP .5,1 

0 POKE S,9 : POKE S 432,9 
1340 NE XT S \ 

1350 FOR k=l TO 15 

1360 PRINT OUER 1;RT S x , S y - 1 ; " 3 
BEEP k /50,12 - 2 *k : NEXT k 
1370 PRINT RT 1,0, INK 7; “ Il S 
istema da supporlo vitale deyl 
i oaini non ha funzionato a lu 
ngo avete fallito la vos tra 
missione! ! !" 

1380 PRINT INK 2;RT 10,2;"PUNTE© 

G IO = " / S C 

1390 INPUT "Uuoi giocare ancora 
”, LINE a% 

1400 LET a$ = a| 4" •* : IF a«<l)*"s'* 

OR atti):"S" THEN RUN 160 
1410 STOP 

1420 FOR k=l TO 15 

1430 PRINT OUER 1, RT SX,sy-l;" 3 
' : BEEP .1,15 —21 k : NEXT k 
1440 PRINT INK 1; FLRSH 0,RT 21, 
0 , 

1450 PRINT OUER 1;RT ax,ay-l;” ^ 
5>", RT bx , by -1, • 

1460 LET ax=INT (154RNPI: LET ay 

= 36 

1470 LET bx =INT (154RND): LET by 
= 30 IF bx =ax THEN GO TO 14 70 
1480 GO TO 450 
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Super menù !!! 


Questo programma costituisce un esempio di come il C B M 64 possa intervenire nella gestione dome¬ 
stica di tutti i giorni', risolvendo alcuni aei problemi quotidiani che assillano uomini e donne alle prese 
con la gestione familiare. 

Infatti, quante volte molti di voi, o le vostre mogli o madri, si saranno chiesti: "Cosa preparo per pran¬ 
zo oggi ?/" 

Super Menù vi viene incontro proponendovi un vasto assortimento di pietanze con la possibilità di 
coordinare le varie portate in modo da utilizzare ingredienti comuni o sbizzarrendo la fantasia negli 
abbinamenti tra primi, secondi e contorni. 

Una volta definito il menù del giorno, è possibile calcolarne il costo immettendo il prezzo dei singoli in¬ 
gredienti, la quantità richiesta perla realizzazione ed il numero delle persone invitate a pranzo! 


STRUTTURA 

Linee 

0 - 157 
158- 197 
198- 227 
228- 297 
298- 337 
338- 417 
418- 580 
5000-5037 
5038-5200 
8000-8170 
9000-9050 
10000 


PROGRAMMA 

stampa copertina 
inizializzazione 
richiesta stampa istruzioni 
stampa scelta tipo di meù 
generazione menù 
display menù 
calcolo costo e fine 
DATA sprite copertina 
DATA varie portate 
stampa istruzioni 
subroutine calcolo costo 
subroutine intestazione 


N.B. Linea 8140: digitare "BUON APPETITO!" con il tasto 'SHIFT LOCK' inserito 


VARIABILI 

K: 

P$: 

SS 

C$: 

A%, B%, 
C%, 

X°/ 0/ Y°/ 0/ 


Z%: 

M: 

P: 

PF: 

C: 

Q: 


l$,L$: 


contatore per l'animazione della copertina 
stringhe 'primi' 
stringhe 'secondi' 
stringhe 'contorni' 


indici delle stringhe scelte dal generatore di menù 
numero persone per le quali si deve preparare il pasto 
costo parziale 
costo tinaie 

costo singolo ingrediente 

quantità richiesta singolo ingrediente 

stringhe per l'intestazione pagina video 
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3 

4 

5 

6 

7 

8 
3 
10 
11 
12 

15 

16 
17 
13 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
148 
150 
155 

157 

158 

159 

160 
180 
190 


REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 


♦ ***** * * :4: ******** * * * 


SUPER MENU 


DI MAURO CIFANI 



REM* 

REM******************** 

REM ***STAMPR COPERTINA*** 

FRI NT"71" : POKE53280,6 : P0KE53281,6 

V=53248^ P0KE2042,13 :FORN=0TO62 PERDO P0KE832 NI,Q: NEZT ■ K=0 

PRINT ,, ^«BWWWW ,, TAB< 11 > " 

PRINTTflB<11>"• rio" 

PRINTTABC11>"• «SUPER MENU ■ :*»" 

PRINTTRB< 11 > "• Sto" 

PRINTTABC11 > 

POKEV+21>4 

POKEV+23,4 :PGKEV+29,4 :POKEV+4,1U0:POKEV+5,150 

pr i nt " mmm" tab < i 1 > " •n»»i»na»»iBnii:’4an»»i»n»^na»r4»ni0r4».’M M 
PRINTTAB<11)"# r*T 

PRINTTAB's 11 >"• SilSSUPER MENU'l •" 

PRINTTAB< 11 > "• r*" 

printtabc 11 ) M •ni»7si»ri»irai»rra0^awmto^aton»»:4»n3»rai».r3o ,a 49n3« •• 

POKEV+4,200 

FORT= 1TO50 : NE>:T : K=K+1 : I FK<20THEN20 
POKEV+21,0 

REM ***INIZIALIZZAZIONE*** 


DIMPT <2 
L$="- 


1)jS$(21)jC£C21) 

super 


MENU-' ***■" 


192 FORI = 1T021 : READP$< I>, S $< I>,C$ (I )■NEXT 

197 : 

198 REM ***RICHIESTÀ ISTRUZIONI*** 

199 = 

200 GOSUB10000 PRINT"MRW»»MVUOI LE ISTRUZIONI? (S/N >" 
210 GETA$ : IFA$=""THEN218 

220 IFAT="S"THEN8000 : IFHTO U N"THEN210 

227 : 

228 REM ***OPZIONE FANTASIA*** 

229 : 

230 GOSUB10000 :PRINT" «RPREFERISCI :" 

240 PRINT H mj>»lÌW»ÌM>ISICFl]9 UN MENU' FANTASIOSO" 



















250 

260 

270 

280 

290 

297 

298 

299 

300 
310 
320 
330 

337 

338 

339 

340 


PRINT"F3 3 ■ UH MENU' 
PF:INT ,, fI(!M!!WP|iÌli|i»»»»li»»Ha[ 3* SCEGLI 
GETAT : IFR$=""THEN270 


C0ORDINRT0 


M 


IFfì$="■"THEN310 1 FHt- "■"THEH300 


IFA*<>"■"ANDA$<>"■"THEN270 


REM «««GENERAZIONE MENU'««« 

AX= I NT < RND (1 > «21 +1 > • XX=AX : VX=AX : ZX=AX •' GOTO340 
FORI = 1T03 : N<I> = INT <RND <1>«21 +1> : NEXT 
AX=N< 1 > : BX=N<2) : CX=N<3) 

XX=AX • VX=BX zx=cx 

REM «««DISPLAV MENU'««« 


ROSI IE10000 


3W PRrKfWWBWWTGGI POTRESTI MANGIRPE ' " 

360 PRINT-KW3PRIMO" : ",P$<XX> ■ FORT=1TO1O0:NEXT 
370 PRINT" WI3SEC0ND0* : ";S$< VX):FORT=1TO100 :NEXT 
380 PRINT"«MSCONTORNO* :";C$<ZX> 

390 PRINT"AMMHnnrrI SODDISFA? <S/N)" 

400 GETA$ : IFfl$=""THEN400 

410 IFR«s M N M THEN412:1Ffl$<>"S"ANDATO "N M THEN400 

411 G0T0415 

412 RESTORE GOTO230 

415 FRINT"ALLORA,BUON APPETITO!" : FORT=1TO2000 : NEXT 

417 : 

418 REM «««OPZIONE CALCOLO COSTO«*« 

419 : 

420 GOSUE10000:PRI NT" MIWMIVUGI CALCOLARE QUANTO TI" 

430 PRI NT ":*®«WCOSTERfi' QUESTO PASTO? <S/N>" 

440 GETfif : IFA$=""THEN440 

450 IFA$="S"THEN470 ; IFA$0"S"ANDATO"N"THEN440 
46© PRINT" 7) IRO•":POKE53280,254 :P0KE53281,246 : END 
470 GOSUE10000 :PRINTTAB<12 >" SCALCOLO COSTO*" : PRINT 
480 PRINTPT•'XX>■GQSUB9080 

490 GOSUE 10000 : PR I NT TRE <12 ) " SCALCOLO COSTO*" : PR I NT : PR INTS* < VX > •' GOSUB9OO0 
50O GOSUE10000 :PRINTTAB<12)" SCALCOLO COSTO*" : PRINT :PRINTC$ <ZX> : GOSUB9O00 
520 PRINT INPUT"NUMERO DI PERSONE";M 
530 PF-P«M 

540 GOSUE10000 PRINT"WWWIL COSTO TOTALE E'DI L.";PF 
550 PRINT "mini UN ALTRO MENU ' ? <S/N>" 

560 GETA$ : IFAT=""THEN560 

570 IFA$="S"T HEN575 ; IFA$<>"S"ANDATO"N"THEN560 

572 GOT0580 

575 RESTORE GOTO230 

580 GOT0460 

4998 : 

4999 REM «««DATA SPRITE COPERTINA««« 

5000 : 

5001 DATAR,72,0,4,137,0,4,69-16,4,136,144,0,136,176,8,4,160 

5R10 DATA8,0,160,0,0,32,0,0,0,1,222,0,14,178,0,14,75,192,124,112,124 
5020 DATAI51,67.26,153,9,154,68,63,162-35,224,68,16,0,8,12,0,48,3,255,192 
5030 DATA0,0,0 

5037 : 

5038 REM «««DATA PORTATE««« 

5039 : 

5040 DATA "PASTA BURRO E PARMIGIANO","FETTINA ALLA PIASTRA","PATATE FRITTE" 
5050 DATA"SPHGHETTI ALLE VONGOLE","FETTINA AL VAPORE","PATATE ARROSTO" 

5060 DATA"SPAGHÉTTI AL TONNO","UOVA CON TONNO E MAIONESE","FAGIOLI AL TONNO" 
5065 DATA"SPAGHETTI AGLIO,OLIO,PEPERONCINO","SOGLIOLE AL FORNO","PATATE LESSE" 
5070 DATA"PASTA AL RAGÙ'","SPEZZATINO","PISELLI FINDUS" 

5075 DATA"BOMBOLOTTI ALLA NORCINA","SALSICCE","VERZE SALTATE" 

5080 DATA"PENNE ALL'ARRABBIATA","FETTINE ALLA PIZZAIOLA","FAGIOLINI" 

5035 DATA"PASTA E FAGIOLI","COTOLETTA ALLA MILANESE","FAGIOLI CONDITI" 

5090 DATA"PASTA E LENTICCHIE","ARROSTO DI VITELLO","LENTICCHIE IN PADELLA* 
5R95 DATA"PASTA E PATATE","POLPETTE","CAVOLI LESSI" 

5100 DATA"MINESTRONE"-"POLLO ARROSTO","BIEDA SALTATA" 


so 











5110 DATA"PhSTINA IN BRODO", "PETTI DI POLLO", "BIEDA ALL'AGRO" 

5120 DATfì"SPflGHETTI HLLA CARBONARA","PETTI DI TACCHINO", "INSALATA MISTA" 

5130 DATA"RISO AL SUGO","BASTONCINI DI PESCE","POMODORI CONDITI" 

5140 DATA"LASAGNE AL FORNO","MERLUZZO AL FORNO","LENTICCHIE" 

5150 DATA"RISOTTO AI FUNGHI","FORMAGGI VARI","FUNGHI SOTT'OLIO" 

5160 DATA"RISOTTO ALLA PESCATGRA","CROCCHETTE DI MARE"•"CARCIOFINI SOTT'OLIO" 
5170 DATA"SPAGHETTI ALLA PUTTANESCA","AFFETTATI VARI","MELANZANE TRIFOLATE" 

5180 DATA"SPAGHETTI ALLA CARBONARA","UOVA LESSE","FAGIOLINI" 

5190 DATA"RISO AI CARCIOFI","CARCIOFI ALLA GIUDEA","PATATE FRITTE" 

5200 DATA"STRACCIATELLA","ABBACCHIO ARROSTO","UOVA E PATATE LESSE" 

7997 : 

7998 REM ♦♦♦STAMPA ISTRUZIONI*** 

7999 : 

8000 GOSUB10000 PRINTCHR$<14)">L PROGRAMMA TI AIUTA AD ORGANIZZARE I" 

8010 FRINT"TUOI PASTI.INIZIALMENTE TI VIENE GHIE-" 

8020 FRINT"STO SE PREFERISCI UN MENU'COORDINATO 0" 

8030 FRINT"FANTASIOSO.—ISPONDI CONSIDERANDO CHE" 

8040 FRINT"NEL PRIMO CASO PRIMO.SECONDO E CONTORNO" 

8050 FRINT"HANNO MOLTI INGREDIENTI IN COMUNE,MEN-" 

8060 PRINT"TRE IL MENU'FANTASIOSO ABBINA CASUALMEN-" 

8070 FRINT"TE LE TRE PORTATE.LA GENERAZIONE DEL ME-" 

8080 PRINT"NU' PUÒ'ESSERE RIPETUTA A PIACERE FINO" 

8090 PRINT"ALL'IDENTIFICAZIONE DI QUELLO PIU'ORA-" 

3100 FRINT"DITO.“I QUESTO PUÒ'ESSERE CALCOLATO IL" 

8110 PRINT"COSTO DI REALIZZAZIONE." 

8120 PRINT"/ER RISPONDERE ALLE DOMANDE,BATTETE SEM-" 

8130 PRINT"PRE IL TASTO SIC RETURN 31 AL TERMINE." 

8140 PRINT"AMMISI JT/ *TThir!" 

8150 PRINT"JIPER PROSEGUIRE PREMI UN TASTO" 

8160 GETA* : IFfl$=""THEN8160 
8170 PRINTCHR$<142) : GOTO230 

8997 : 

8998 REM ***SUBROUTINE CALCOLO COSTO*** 

8999 : 

900Ò PRINT" MM" ^INPUT"NUMERO INGPEDIENTI";N 
9020 FORI = 1TON:PRINT"HflCOSTO DELL'INGPEDIENTE", I ; 

9030 INPUTC 

9040 PRINT"QUANTITÀ'RIGHIESTÀ <PER REPS.>" : INPUTQ 
9050 P=P+C*Q : NEXT : RETURN 

9997 : 

9998 REM ***SUBROUTINE INTESTAZIONE*** 

9999 : 

100Ò0 PRINTI %■ PRINTL$ : RETURN 


SIMBOLI GRAFICI COMMODORE 64 


COME PER VIC 20. 

SI AGGIUNGONO SOLO I SEGUENTI : 


SFUMATURE 

DI COLORE 



= 

TASTO 

COMMODORE 

+ 

1 

R = 

TASTO 

COMMODORE 

+ 

2 

0 = 

TASTO 

COMMODORE 

+ 

3 

51 = 

TASTO 

COMMODORE 

+ 

4 

sa = 

TASTO 

COMMODORE 

+ 

e 

■J 

li = 

TASTO 

COMMODORE 

+ 

6 

n = 

TASTO 

COMMODORE 

+ 

7 

_ 

■i — 

TASTO 

COMMODORE 

+ 

3 

PER 

TASTO 

COMMODORE 

e-. 

' INTENDE 

A S 

INISTRR,CONTRASSEGNATO DAL 


IL TASTO NELL'ANGOLO IN BASSO 
SIMBOLO COMMODORE CCKD. 
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Valori e codice colori 
delle resistenze 


Questo programma sarà certamente di valido aiuto per gli appassionati dell'elettronica. 

Permetterà infattiuna volta immessi il valore della resistenza e la tolleranza da voi richiesti, di ricava¬ 
re il corrispondente CODICE COLORE. 

È possibile anche il procedimento inverso. 



COLORE l 


colore 3 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 


REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 


*********************** 


* CODICE COLORE # 

* * 

* E UflLORE * 

* * 

* DELLE RESISTENZE * 

* * 

* LIST 1984 * 

* * 


*********************** 


20 LET codi ce =2000 : LET inputr 
e s =2020 : LET inputcol=1090: LET 
valore=1000: LET ancora=160 

40 BORDER 2: PAPER 7: INK 9: B 

RIGHT 1: CLS ___ 

50 PRINT PAPER 1;RT 2,4;"CODIC 
E COLORI RESISTENZE" 

60 PRINT RT 7,5;"Questo progra 
nna e'utile per determnar 

e il valore di una resiste 

nza ricavan doto dal codice 

colore o , viceversa, dete 

minare il codice colore 

ricavandolo dal valore dell 

a resisten za" 

80 DIM b$<13,7) 

90 FOR n=l TO 13: READ a$ 

100 FOR p=l TO 7 
110 LET b$(n,p)=a$(p) 

120 NEXT P: NEXT n 

130 DRTR "nero ","»arrone" , "r 
osso " , "a r an c i o " , "g i a l lo "/'ver 
de ","blu ", "po rpora","grigi 

o "/"bianco "/"oro "/"argento 

" , "nessuno" 


140 PRINT FLRSH 1; PRPER 3;RT 2 
0,1;"Presi un tasto per continua 
re 

150 PRUSE 0 

170 CLS 

180 DIM V C4) 

190 PRINT RT 5,2;"Uolete il vai 
ore o il codice colore della 

resistenza 77" 

200 PRINT RT 10/2;"PREMI 8 per 
i l va lo re" 

210 PRINT RT 12/2;"PREMI 8 per 
il codice" 

220 PRINT RT 14,2;"PREMI H Ptr 
STOP/PROGRAMMA" 

230 PRUSE 0: LET a«*INKEY$ 

240 CLS 

250 IF a $ = "0" THEN STOP 

260 IF a $ = “1" TMEN GO SUB valor 
e 

270 IF a $*"2" TMEN GO SUB COdiC 


280 GO TO ancora 

1010 PRINT RT 1/4; PRPER 1;"I CO 
tori sono :" 

1030 FOR n =1 TO 10 

1040 PRINT RT 2 +n,4;n-1;"- ";b*i 
n ) 

1050 NEXT n 

1070 PRINT RT 14,l;"Inmettere le 
3 bande di color e cosi e tre num 
eri ,quindi : affluiti ' 

1080 PRINT RT 17,1; PRPER 3;"ESE 
MPIO"*' PRP ER 7, " Rosso-nero-ara 
ncio= 203 <am=is>" 

1100 INPUT C* 

1110 FOR n =1 TO 3 

1120 IF CODE C$(n)>57 OR CODE Ci 
(n)<48 TMEN PRINT FLRSH 1; PRPER 
4;AT 21,1;"IMMISSIONE NON URLID 


BE' 












GO TO inpu tcol 


PAPER l;"TOL 


fi:RIPETERE" 

1130 NEXT n 
1150 CLS 

1160 PRINT fiT 2,11; 

LERANZA" 

1170 PRINT fiT 6,3;"La quarta ban 
da indica la tolleranza."' 

Potete scegliere tra;" 

1180 FOR n«ll TO 13 

1|S2 EBSfiF RT n ,3; n-10; b$ in) 

1200 NEXT n 

1210 PRINT fiT 15,0;"Inserire H,S 
o H per se lezionarei l colore <T 
ollereranza>" 

1220 INPUT "TOLLERfiNZR?"; LINE t 

1230 IF t •<>••!" AND t*<>"2" THEN 
LET t$*"3" 

1260 CLS 

1270 PRINT fiT 2,4.; "Il codice col 
ore e ' ; " 

1280 FOR n =1 TO 3 

1290 PRINT fiT 3+n , 4.; " banda '* ; n ; " 
- "; b$ ( 1-fUfiL c * (n) ) 

1300 NEXT n 

1320 PRINT fiT 7,4-; "banda 4. - ";b 

$ ( 10 ♦ URL t$) 

134-0 LET resistance>(UfiL c$(l) *1 
0+UfiL C$(2))#10tUAL C$(3) 

1350 PRINT fiT 10,4.; "La resistenz 
a e' di;" 

1360 PRINT fiT 11,4.; PfiPER 3; resi 
stance;" OHMS" 

1370 LET tOll=5*UAL t$ 

1380 IF to11x15 THEN LET tO l l *2® 
1390 PRINT fiT 14-,4.; "La tolleranz 
a e'del "; PfiPER 3;toll;"JC" 

14.00 PRINT FLASH 1 ; fiT 19,1; PAPE 
R 6 ;"Premi un tasto per continua 
re" 


14-10 PAUSE 0 
1420 RETURN 
2005 BORDER 5 

2010 PRINT RT 3,2;"inserì te il v 
alore della resi stenza in OHM 

S.. Le resistenze con valore 

infe riore a 10 ohas hanno co 

dici speciali non contemplat 

i da questo pro 9 raaaa ,coae a 

nche quelle con valore super 

io re a 99000000000 OHMS." 

2030 INPUT "Ualore della resiste 
nza in ohms?"' LINE r$ 

2040 FOR n =1 TO LEN r$ 

2050 IF LEN r $ >11 OR LEN r*<2 OR 
CODE r$(n)>57 OR CODE r$(n)<48+ 
(n=l) THEN PRINT FLASH 1;fiT 18,1 
;"Immisione non va l ida , ripete re " 
GO TO inputres 
2060 NEXT n 

2070 LET V(1)=1+UAL r$(l) 

2080 LET v(2)xl+UAL r$(2) 

2090 LET v(3)=LEN r$-l 
2100 CLS 

2110 PRINT fiT 4,1; "Digitare B,§ 
o B a seconda che la tolleranza 
da voi richiesta sia rispettiv 
aliente del :"''TfiB 10; BRIGHT 1; 

PfiPER 2;" 5 V. "; PfiPER 3;" 10X u 
; PfiPER 1;" 20X " 

2120 PRINT fiT 11,2; "Imeissioni d 
iverse da B o B saranno inte 

se come richieste del 207. di t 
olleranza." 

2130 INPUT "Tolleranza fi ,2 o 3) 
"J LINE t$ 

2140 IF t*<>"l" AND t$<>"2" THEN 
LET t*«"3" 

2150 LET V(4)-10*UfiL t$ 

2160 FOR n =3 TO LEN r% 

2170 LET r $(n> = "0" 

2180 NEXT n 

2190 CLS : PRINT fiT 2,4;"La resi 
stenza e' di." 

2200 PRINT fiT 3,4; PfiPER 3;r$;" 
OHMS" 

2210 LET tOll«5*UAL t« 

2220 IF to11x15 THEN LET toll«20 
2230 PRINT fiT 6,4;"La tolleranza 
richiesta era del Pfi 

PER 3;toll;"X" 

2240 PRINT fiT 9,4;"Il codice COI 
ore e' "; 

2250 FOR n =1 TO 4 


2260 PRINT fiT l0+n,4;" Banda ";n 
: " - ";b$(v (n) ) 

2270 NEXT n 

2280 PRINT FLRSH 1;fiT 18,1; PAPE 
R 6;"Premi un tasto per continua 
re" 

2290 PAUSE 0 
2300 RETURN 



I co^ri sono : 

0- nero 

1 - marrone 

2 - rosso 

3- a ran cio 

4- giallo 

5- verde 

6- blu 

7- porpora 

8- grigio 

9- bianco 

Immettere le 3 bande di 
come tre numeri «quindi ; 

ESEMPIO 

Ros so -ne r o-a r an c i o * 203 <H9> 


La resistenza e' di: 
320000 OHMS 


La tolleranza richiesta 
era del 105* 

Il codice colore e' 

Banda 1 - arancio 
Banda 2 - rosso 
Banda 3 - giallo 
Banda 4 - argento 


Premi un tasto per continuare 
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Vie 20 



Poesie... Rondoni 



È tempo di avventure sentimentali... 

Perché non scrivere poesie per la dolce metà con l'aiuto di un computer? Se poi il nostro amico conser¬ 
va in memoria le opere di Dylan Thomas o Arthur Rimbaud e aggiunge qualche verso inventato li per li 
ed altri presi a prestito da qualche canzoncina melensa, il gioco è fattoli 

Scherzi a parte, il programma è molto divertente e l'unica limitazione è determinata dalla scarsa me¬ 
moria disponibile. 

Il numero massimo di combinazioni è limitato a 42 , ma nessuno vieta, se in possesso di un'espansione, 
di aggiungere altri DA TA e modificare il valore di N nella prima riga per arricchire ulteriormente il 
"vocabolario " di base del programma. 

Ricordiamo che su questo stesso principio è possibile creare numerosi altri programmi. Ci limitiamo a 
ricordarvi che sono già stati creati lo psichiatra tecnotronico ed i discorsi politici random... 

Se volete esercitarvi’, va tenuto presente che le singole frasi contenute nei DATA devono presentare la 
caratteristica di potersi legare indifferentemente una all'altra. 

Altro fattore importante è la punteggiatura / perciò fate attenzione con le virgole. Se non chiudete le 
frasi tra le virgolette, il computer interpreta la virgola come un segno di divisione tra un'istruzione DA¬ 
TA e la successiva. 

A parte questo, poi, in poesie random c'è qualche concessione di troppo all'uso corretto della punteg¬ 
giatura, ma con la licenza poetica tutto è consentito. 

Buon lavoro e speriamo che il poeta tecnotronico non vi riservi brutte soprese. 


6V 








5 N=7 

10 DIMQ$<N,6> 

20 DIMRNf<6> 

30 PRINT"^" : G0T075 
40 L/i*LEN<fì$) :E$=fì$:fìt*" " 

45 F0RK=LXT02STEP-1 = RX=K* < RND < 1 > # 1 >+1 : A$=Af+MI D$ < B$, RX, 1 ) 

50 IFRX>1 RNDRX<KTHENB$=LEFT$< B t , R7- 1> +RIGHT$ < B$, K-RX > ■ GOTO70 
55 IFRX=1THENB*=MID$<B$,2> : GOTO70 
60 IFRXOKTHENSTOP 
65 B$=LEFT*<B*,K-1) 

70 NEXT:fì$=A$+B$^ RETURN 

75 FORI = 1 TOH :FORJ=1T06:RERDQ*< I, J > :NEXT:NEXT 

80 RN$<1 >=" ":FORI = 1TON:RN$<1> =RNf<1>+CHRf<I>:NEXT:FORI=1T06 : RN$<I>=RNS<1>:NEXT 
85 FORI = 1T06:fì$=RN$(1) GOSUB40 RN$<I) =A*:NEXT 

90 FOR I = 1 TON :«$=••••: FORJ-1T06 K= I NT < RND <. ) *N > +1 

91 PRINTQ$<K,J>; : NEXT ; PRINT" flW" 

92 GETR$:IFR*= M "THEN92 

93 IFfì$="S"THENPRINT"n" END 
95 NEXT : GOTO80 

100 DRTR"Lfì LUCE RPPRRE DOVE NON SPLENDE IL SOLE;* 1 

101 DRTfì"...SPRRSI FRNTRSMI CON LUCCIOLE NEL CRPO... M 

102 DRTR"FAREMO RITORNO RL PRESE ALL'IMBRUNIRE." 

103 DATR"NEL TORTUOSO SENTIERO CHE CONDUCE fì TE " 

104 DRTfì"CON LO SCIALLE SCOMPOSTO ED UNA ACCONCIRTURfl MRLIZIOSR " 

105 DATA"SARESTI FELICE SE SOLTANTO QUALCUNO DICESSE CHE TI AMR?" 

106 DATA"NON SONO BELLE LE NUVOLE? SEMBRANO FIOCCHI DI COTONE." 

107 DRTfì"NON VOGLIO GUARDARE QUESTE STELLE,VOGLIO GUARDARE LE MIE STELLE." 

108 DATA"CI DEVE ESSERE IN CIO' UNA LEZIONE DA APPRENDERE,MA NON SO QUALE..." 

109 DATA"GUARDATE IN ALTO,LA STELLA E' ANCORA LASSÙ' E TUTTE LE GENTI LA VEDONO. 

ii 

U0 DATA"GAMMINO LUNGO LA STRADA CON LA MIA VALIGIA IN MANO." 

111 DATA"LA MIA BAMBINA SI E' PRESA IL MIO CUORE,FINIRÒ' PER AMARTI BAMBINA..." 

112 DATA"QUANDO VERRÀ' IL TEMPO VIENIMI INCONTRO NEL CIELO CON QUESTE ALI." 

113 DATA"GETTO IL BIGLIETTO DAL FINESTRINO,GETTO LA VALIGIA DAL FINESTRINO;GETTO 
TUTTO.. 

114 DATR"D'INVERNO VIAGGEREMO IN UN VAGONE ROSA CON DEI CUSCINI BLU;" 

115 DRTfì"QIJRLCUNA DELLE VOCI ANGELICHE SI SPIEGA:" 

116 DATA"IL GABBIANO VOLA ALTO LIBERO NEL CIELO..." 

117 DATA"IO SPEGNERÒ' LA LIBERTA',DELICATAMENTE,COME UNA CANDELA!" 

118 DATA"UN BREVE BACIO,COME RAGNETTO FOLLE,TI CORRERÀ' SUL COLLO..." 

119 DATA"DORME NEL SOLE,CON LA MANO SUL PETTO SERENO.HA DUE FIORI ROSSI SUL FIRN 
CO. " 

120 DRTfì"POLLICINO SOGNANTE,SPARGO SULLA STRADA LE MIE RIME." 

121 DATfì"L'ORSA MAGGIORE ERA IL MIO OSTELLO." 

122 DATR"L'INFINITO ROTOLR BIANCO DALLA TUA NUCA AL TUO CUORE." 

123 DATA"IL MARE S'IMPERLA DI ROSSO NEL CUORE DELLE TUE ORECCHIE." 

124 DATA"NUDA NELLA POLVERE BIANCA,TI GUARDO." 

125 DATA"MENTRE IL MATTINO SI SVEGLIA SOPRA LA GUERRA," 

126 DATA"INDOSSA I SUOI VESTITI,VARCA LA SOGLIA, E MUORE;" 

127 DATA"CHI SEI TU CHE NASCI NELLA STANZA ACCANTO ALLA MIA CON TANTO CLAMORE?" 

128 DATA"NEL MATTINO DELL'UOMO,IL MARE E LA TERRA LODARONO IL SOLE." 

129 DATA"CREA TUTTA LA MUSICA,IO UDRÒ' GLI ACCORDI DEL PLACIDO FIUME." 

130 DATA"METTI LE BRACCIA INTORNO A ME,COME UN CERCHIO INTORNO AL SOLE." 

131 DATR"FORSE E' IL COLORE DEL SOLE OSCURATO CHE RICOPRE LE COSE!" 

132 DATA"IL TRIANGOLO TINTINNALE TROMBE SUONANO PIANO,DEVO SEGUIRE IL SUONO." 

133 DATA"VOGLIO COMPRARMI UN FLAUTO PER SUONARLO QUANDO LA PIOGGIA NON VUOLE SME 
TTERE!" 

134 DATA"ANCORA UNA NOTTE LE STELLE SPUNTANO.OH,LA LUNA SPLENDE LUMINOSA..." 

135 DATA"ANCORA UNA NOTTE ASPETTERÒ' LA LUCE MENTRE IL VENTO SOFFIA SUGLI ALBERI 

M 

*136 DATA "CAMMINEREMO A PIEDI NUDI NELL'ERBA BAGNATA DI RUGIADA!" 

137 DATA"QUESTA NOTTE NESSUNA LUCE SPLENDERÀ' PER ME." 

138 DATA"NON SONO MAI STATO COSI' SOLO!" 

139 DATA"DIMMI CHE SCIOGLIERAI I TUOI CAPELLI.." 

140 DATA"IL MIO CUORE E' COSI' STANCO." 

141 DATA"BAMBINA DA DOVE VIENI?SEI FORSE DISCESA DAL CIELO?" 

142 DATA"ALLA TUA BELLEZZA MI CHINO UMILMENTE,FULGIDA STELLA,DIVINO TESORO;" 
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Vie 20 



Occhio alla cifra! 


Questo semplice programma vi permetterà di misurarvi con un amico in una gara di colpo d'occhio e 
prontezza ai riflessi: un numero, generato casualmente dal computer, viene evidenziato sullo schermo 
per un brevissimo tempo, proporzionale al numero delle cifre aa cui è composto. Occorre distinguere 
le cifre e ripeterle, ribattendole su tastiera. Inizialmente si potrebbe pensare di scegliere numeri con 
poche cifre, più facili da leggere in breve tempo ma, attenzione, il punteggio, in caso di riuscita, è pro¬ 
porzionale al numero delle cifre. 

Quindi, rischiate con numeri lunghi! 

Se volete uno schermo colorato e non nero, modificate la linea 7 introducendo al posto di Di codici dei 
colori che più preferite per il bordo (locazione 53280) e per lo sfondo (locazione 53281). 


STRUTTURA PROGRAMMA 
Linee 


1- 14 

stampa copertina 

15- 18 

richiesta istruzioni 

19- 20 
50- 86 

inserimento nomi giocatori 
inizio gioco e display numero 

118-157 

richiesta del numero 

158-222 

calcolo punteggio e incremento della giocata 

223-250 

stampa risultati finali 

260-290 

richiesta altra partita 

497-610 

subroutine stampa istruzioni 

VARIABILI 
C$, D$: 

nomi giocatori 

Z,P: 

punteggio giocatori 

K,W: 

contatori giocate 

L: 

lunghezza numero 

X: 

E: 

numero casuale generato dal computer 
numero letto 


0 REM***OCCHIQ ALLA CIFRA!*** 

1 REM*#* DI MAURO CIFANI *** 

2 REM* V.VALERIO FLACCO N.1 * 

3 REM***R0MA TEL.7614189 *** 

4 REM*** CONVERSIONE *** 

5 REM*** PER VIC 20 DI *** 

6 REM*** MASSIMO TRUSCELLI*** 

7 PRINT M rX":P0KE36879,8 
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3 PRI NT " W«C«tìtì«aM####•••••••••••••••• 11 

9 PRINT"# OCCHIO ALLA CIFRR! •" 

10 PRINT":*•••••••••••••••••••••■ 

12 PRINT "««««««««« PREMI IJN TASTO" 

14 GETX$ : IFX$=""THEN14 

15 PRINT"Ha VUOI LE ISTRUZIONI ? E« <S/N>" 

16 GETX$ : IFX$=*" "THEN16 

17 IFX*="S"THENPGKE36869,242•P0KE36879,25 :GDTO500 

18 I FXtO " N " THEN16 

19 PRINT"ni* GIOCATORE" : INPUT "WJOME ";C$ 

20 PR I NT " m2 a GIOCRTORE " • INPIJT " flUOME " ; D$ : Z=0 : K=0 : W=0 
50 PRINT'L"3W3IOCR VCS; "Mtì"GOTO70 

60 FORI = 1TO30O0 : NEXT : PRINT"n«3IOCA ";D$;"W«" 

70 PRINT'^UNGHEZZA": INPUT"IQ DEL NUMERO ";L 

72 REM***CONTATORl DELLE GIOCATE*** 

75 W=W+1 : K=K+1 

79 REM***CALCOLO NUMERO CASUALE*## 

80 X=INT(RND <1)#10 tL) : PRINT 

81 FORI=1TO200 NEXT 

82 FORI = 1T04 PRINT^«««««««a ATTENZIONE! NUMERO IN ARRIVO 

83 FORT=1TO150 NEXTT 

84 PRINT":i««««W««« ATTENZIONE! NUMERO IN ARRIVO 

85 FORT=1TO150 : NEXTT : NEXTI 

86 PRINT"^i!ltì«««««i>»MM»ia"X"ll ■" 

119 REM*##DURRTA DISPLAY NUMERO**# 

120 FORI = 1TO < 2tL+400>:NEXT : PRINT" 1" 

130 REM***RICHIESTÀ NUMERO*** 

150 PRINT"SECONDO TE,QUAL'ERA" : INPUT"» IL NUMERO ";E 

159 REM#**CALCOLO PUNTEGGIO*#* 

160 IFE=XTHENZ=Z+Lt2:PRINT M »W«:iK,HAI INDOVINATO, «IL PUNTEGGIO E' ";Z : GOTO 130 
170 PRINT"W«9>MÌ»MHa NO! S«®Q" : PRINT" IL NUMERO ERA " ; X : PRINT"WTU HAI DETTO ";E 
130 IFW=10THEN220 

190 IFK=5THENPRI NT " NIFI NE " :P=PZ:Z=0:K=0:GOTO60 

210 GOTO70 

220 PRINT PRINT 

222 FORI=1T0999 : NEXT 

223 REM***RIEPILOGO PUNTEGGI*** 

224 print".t;c$;"= ";P 
226 PRINT"Wtì";D$;"= ";Z 
228 PRINT:PRINT 

230 IFP>ZTHENPRINT"«««";C$ : PRINT"W E ' IL CAMPIONE" :GOTO260 
240 IFZ>PTHENPRINT".«««" ; D$ : PRINT" M E" IL CAMPIONE":GOTO260 
250 IFZ=PTHENPRINT"WmS";"SIETE BRAVI ENTRAMBI?!" 

260 PRINT"««««««ALTRA PARTITA ? <S/N)" 

262 GETXS:IFX$=""THEN262 
270 IFX$="S"THEN19 
280 IFX$<>"N"THEN260 
290 END 

499 REM***STAMPA ISTRUZIONI*** 

500 PRINT"IH -sL GIOCO SI SVOLGE TRA DUE GIOCATORI." 

510 PRINT VNSER ITE I NOMI,POI A TURNO SCEGLIETE LA LUNGHEZZA DEL NUMERO" 

511 PRINT"DA INDOVINARE." 

530 PR INTOPPAR IRA' AL CENTRO DELLO SCHERMO UN NUME-RO, CHE SARA' VISIBILE" 

540 PRINT"PER POCHISSIMO TEMPO. “FOVATE A INDOVINARLO." 

560 PRINTVL PUNTEGGIO E' IN FUNZIONE DEI NUMERI INDO-VINATI,MA ANCHE DELLE" 

570 PRINT"LUNGHEZZE SCELTE." 

575 PRINTVOMERI PIU' LUNGHI DANNO PIU' PUNTI!" 

530 PRINT""FEMERE aC—“I .-/]■ DOPO OGNI RISPOSTA." 

585 PRINT"WPEMI UN TASTO" 

600 GETX# : IFXS*""THEN600 

610 P0KE36869,240 :P0KE36879,3 : PRINT"k" : GOTO19 
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Calendario 


Desta sempre notevole interesse un programma che offra la possibilità di avere a disposizione un calen¬ 
dario perpetuo. 

Quello presentato non vuole avere la pretesa di calcolare il giorno della creazione, o avvenimenti simili, 
ma dare un apprezzabile aiuto a quanti desiderano avere sempre a portata di mano un calendario ag¬ 
giornato. 

Nelle righe 140-150 viene deciso l'anno di inizio di ricerca secondo la tabella riportata. (Per velocizzare, 
si consiglia di inserire, come anno di partenza, il 1900). 

Dato il comando di elaborazione, la macchina, chiederà quale anno volete vedere. 

Dopo un messaggio di attesa verrà visualizzato il mese di Gennaio dell'anno richiesto. 

Premendo un tasto apparirà il mese successivo: Febbraio, e cosi, continuando nell'operazione si arriverà 
al mese di Dicembre. 



10 RETI **************** 

20 REH ** CALENDARIO ** 

30 REH **• PERPETUO ** 

40 REH ** PAOLO 1984 ** 

50 REH **************** 

60 CLS : CLEAR 
70 GOSUB 1090 

80 PRINT : PRINT •’***** CALENDARIO PERPE 
TUO ORIC 1 *****" 

90 GOSUB 1090 
100 CLEAR : PRINT 
110 INPUT "Che Alino " ;A 
120 CLS 

130 PRINT "********** ATTENDERE PREGO * 
*********" 

140 E-1499 
150 P=3 
160 1-1 

170 GOSUB 680 
180 IF D=0 THEN 1-2 
190 P=P+I 

200 1F P>7 THEN P=P-7 
210 E-E* 1 

220 JF E <A THEN GOTO 160 

230 GOSUB 680 

240 GOSUB 610 

250 IF D=0 THEN GC2)=29 

260 FÙR n=l TO 12 

270 CLS 

280 T-GCnD 

290 GOSUB 1090 

300 PRINT "=- - ** ; 

310 ON H GOSUB 850,870,890,910,930,950,9 
70,990,1010,1030,1050,1070 
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ORIC 1 


320 PKINT " ";A 

330 GOSUtì 1090 
340 PRINT :PRIIsr 
350 FOR S-l T3 ? 

360 PRINT M M ; 

370 ON P GOSUtì 710,730,750,770,790,810,8 
30 

380 R-S 

390 FOR L-1 TO 5 
400 PRINT " "; 

410 IF R<10 THEN PKINT " M ; 

420 R*=STRSCKD 
430 IF R> T THEN R$=- ,,M 
440 IF R=T THEN N=P*1 
450 PRINT Rt; 

460 R=R+7 
470 NEXT L 
480 PRINT :PRINT 
490 P=Pi-l 

500 IF P>7 THEN P=P-7 

510 NEXT S 

520 GOSUtì 1090 

530 IF H=12 THEN GOTO 100 

540 PRINT :PRINT 

550 PRINT " *** PREMI- UN TASTO PER CONTI 
NUARE ***" 

560 GETU$ 

570 P=N 

580 IF P>7 THEN P=P-7 
590 NEXT M 
600 END 
610 DIMGC12) 

620 FOR X=1 TO 12 
630 READ C 
640 GCXD=C 
650 NEXT X 
660 RETURN 
670 REM BISESTILE 
680 R=E-4*flNTfE/4)D 
690 D=I NT C 2.5*K} 

700 RETURN 

710 PRINT “ LUN M J 

720 RETURN 

730 PRINT " MAR "J 

740 RETURN 

750 PRINT " MER "J 

760 RETURN 

770 PRINT GIO " ; 


780 

RETURN 


790 

PRINT 

‘ UEN "5 

800 

RETURN 


810 

PRINT 

’ SAB " ; 

820 

RETURN 


830 

PRINT 

' *DOM*" ; 

840 

RETURN 


850 

PRINT 

‘GENNAIO "; 

860 

RETURN 


870 

PRINT 

* FEBBRAIO 

880 

RETURN 


890 

PRINT 

‘MARZO " ; 

900 

RETURN 


910 

PRINT 

'APRILE "; 

920 

return 


930 

PRINT 

‘MAGGIO "; 

940 

RETURN 


950 

PRINT 

'GIUGNO "; 

960 

RETURN 


970 

PRINT 

'LUGLIO "; 

9B0 

RETURN 


990 

PRINT 

•AGOSTO "; 


1000 RETURN 

1010 PRINT "SETTEMBRE "; 
1020 RETURN 

1030 PRINT "OTTOBRE "; 

1040 RETURN 

1050 PRINT "NOUEMBRE "i 
1060 RETURN 

1070 PRINT "DICEMBRE "J 
1080 RETURN 
1090 FOR H=1 TO 38 
1100 PRINT "= M ; 

1110 NEXT H 
1120 RETURN 

1130 DATA 31,28,31,30,31,30 
1140 DATA 31,31,30,31,30,31 
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Dolci 


Se siete golosi ... ecco qualcosa per voi. 

Dovete, infatti, riuscire a mangiare le ciliege che ricoprono il dolce nel minor tempo possibile. 

All'inizio viene chiesto di inserire il limite ai tempo che si vuole a disposizione. (400 corrisponde circa 
ad un minuto). 

Per il movimento usare i 4 tasti cursore. 


1 REM DOLCI 

13 PRINT "INSERIRE TEMPO RICHi 

EòT Q ** 

20 INPUT R 


4.0 LET «$ = ** OOOOOOOOG 


OOOO' 

50 

60 

70 

SO 

90 

100 

110 

120 

POR 6x0 TO 13 
PRINT R$ 

NEXT 6 

LET V =9 

LET Z =0 

POR E x0 TO R 
PRINT RT Z , Y ; 
IF INKEY $ = '*©" 

.. <t . 

THEN 

LET 

Y=Y + 

130 

IP INKEY $ = "5" 

THEN 

LET 

Y «V - 

14.0 

IP INKEY$s"6" 

THEN 

LET 

ZxZ- 

150 

IP INKEY$="7" 

THEN 

LET 

z=z* 

160 

170 

PRINT RT Z,Y; 
NEXT E 

” < " 





Topi 

Lo scopo del gioco è evitare i topi che man mano vi vengono incontro. Per muovervi a destra e a sini¬ 
stra usare rispettivamente i tasti 0 e 1. 



-1 

) - 
3 


1 

5 

10 

15 

20 

25 

30 

35 

4.0 

50 

60 


REM TOPI 

LET DDxl 

LET S*0 

LET R=4- 

POR B=1 TO 20 

print •• m M" 

NEXT B 

LET D«INT (RND*S>+2 
POR C=19 TO 0 STEP -DD 
LET E=INT <RND»3J+1 
IP Ex2 RND D>2 THEN LET PsD 


63 IP C<=5 THEN LET D=R 
65 LET flsfl+lTNKEV*="0" RND R<6 
( INKEV $ = ” 1 ’’ RND P>2.> 

70 IP C=1 RND DxR THEN GOTO 20 


60 PRINT RT 1,R;”U”;RT 
100 PRINT RT 1, R; *’ ** ; RT C,D;*' ** 

105 NEXT C 
HO LET S*S + 1 

115 PRINT RT 4. , 10; "PUNTIx"; 5 
120 IP S>5 THEN LET DD=2 
125 IP S>10 THEN LET DD*3 
130 GOTO 35 

200 PRINT RT 13/12; "PINE DEL Gl 

O CO” 

220 STOP 


70 
















Quattro in linea 

Ricordate la movimentata e concitata sequenza finale del film WARGAMES? Un'incredibile partita 
contro il tempo e contro un computer giocata a mosse di filetto. 

Lungi dal voler simulare quella tragica situazione, vi proponiamo, molto più semplicemente, una ver¬ 
sione del famoso filetto o tris, da giocare con quattro pedine invece che con tre. 

La realizzazione del gioco è motto curata. 

Si inizia introducendo il nome dei due giocatori, poi il computer assegna la prima mossa a uno dei due 
che deve indicare in quale colonna inserire la pedina. 

Si vince riuscendo a mettere in fila quattro pedine sia in senso orizzontale che verticale o diagonale. 

È praticamente impossibile non accorgersi di aver vinto, poiché il computer avverte con un segnale 
acustico che tale eventualità si è verificata. 

Oltre a questo segnale acustico, il lampeggio delle pedine indica la posizione in cui si è riusciti a met¬ 
terle in fila. 

Buon divertimento. 


10 CALL CLEAR 

20 FOR CH-96 TO 128 STEP 8 

30 CALL CHAR (CH, "FFF8E0C0C0808080" ) 

40 CALL CHAR(CH+1,"FF1F070303010101") 
50 CALL CHAR(CH+2,"808080C0C0E0F8FF"> 
60 CALL CHAR(CH+3,"0101010303071FFF") 
70 NEXT CH 

80 CALL CHAR(42 T "3C7EFFFFFFFF7E3C") 

90 CALL CHAR(64,"FFFFOOFFOOFFFFOO"> 
100 CALL CHAR(100,"FC828282FC908884") 
110 CALL CHAR( 101,"FC80S0FC040404FC") 
120 CALL CHAR(136,”3C7EFFFFFFFF7E3C"> 
130 PRINT ''#####«#*#*#######*#«»####« 
STRUZIONI ?" 

140 PRINT " (SI/NO) 


150 PRINT s * * i : : s i * 

160 CALL KEY(0,K, S) 

170 IF S=0 THEN 160 

180 IF (K*83) ♦ (K*l 15) THEN 1690 

190 IF (K-78) + (K-U0)THEN 200 ELSE 160 

200 FOR INP=1 TO 2 

210 CALL CLEAR 

220 PRINT "NOME DEL GIOCATORE"| INPi 
"MAX 10 CARATTERI "} 

230 INPUT ""sN#(INP) 

240 IF LEN(N4(INP))>10 THEN 210 

250 NEXT INP 

260 CALL CLEAR 

270 CALL SCREEN(16) 

280 CALL COLOR(2,7,1) 

290 CALL COLOR(9,5,1) 

300 CALL COLOR(10,5,7) 

310 CALL COLOR(11,5,4) 

320 CALL COLOR(14,4,1) 

330 FOR R0W=6 TO 16 STEP 2 
340 FOR COL-9 TO 21 STEP 2 
350 CALL HCHAR(ROW,COL,96) 

360 CALL HCHAR ( ROW, COL-*-1,97 ) 

370 CALL HCHAR(ROW+1,COL,98) 

380 CALL HCHAR(ROW+1,C0L+1,99) 

390 NEXT COL 


VUOI LE I 


400 NEXT ROW 
410 DIM BOARD(6,7) 

420 FOR R*1 TO 6 

430 FOR C-l TO 7 

440 BOARD (R,0*0 

450 NEXT C 

460 NEXT R 

470 FOR NM=1 TO 7 

480 CALL HCHAR(18,8+NM*2,48+NM) 

490 NEXT NM 

500 L*13-LEN(N$(1)) 

510 ME$*N$ ( 1 ) "&CHR* (42) le" 

" ItCHR* ( 136 ) «. " - " ItN* ( 2 ) 

520 ROP-2 

530 COP-L 

540 BOSUB 1240 

550 ME»*"QUALE COLONNA " 

560 ROP-22 

570 COP-3 

580 BOSUB 1240 

590 CALL HCHAR(10,28,100) 

600 CALL HCHAR(10,29,101) 

610 FOR MAIN=1 TO 21 
620 FOR PL-1 TO 2 
630 ME#*N*(PL) 
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640 R0P=22 
650 C0P=18 

660 CALL HCHAR(22,18,32,10> 

670 GOSUB 1240 
680 CALL KEY <0,K,S) 

690 IF S=0 THEN 680 

700 CALL SOUND(100,1000,0) 

710 IF <K<49> + (K>55)THEN 680 

720 C0L=K-48 

730 FOR SE=1 TO 6 

740 IF BOARD(SE,COL)<>0 THEN 760 

750 NEXT SE 

760 IF SE=1 THEN 680 

770 CHA=96+8*PL 

780 R»4+ (SE—1 ) *2 

790 C=C0L*2+7 

800 CALL HCHAR(R,C,CHA) 

810 CALL HCHAR(R,C+1,CHA+1) 

820 CALL HCHAR(R+1,C,CHA+2) 

830 CALL HCHAR(R+1,C+1,CHA+3 > 

840 V=SE-1 
850 BOARD(V,COL)=PL 
860 X=1 
870 Y=1 

880 GOSUB 1070 
890 X=0 
900 Y=1 

910 GOSUB 1070 
920 Y=0 
930 X=1 

940 GOSUB 1070 
950 Y=-1 
960 X=1 

970 GOSUB 1070 

980 NEXT PL 

990 NEXT MAIN 

1000 ME*="PARTITA PARI" 

1010 R0P«=22 
1020 C0P=2 

1030 CALL HCHAR(22,1,32,32) 

1040 GOSUB 1240 
1050 CLR=1 
1060 GOTO 1650 
1070 FL=0 

1080 FOR RE=1 TO 2 
1090 STX=COL 
1100 STY=V 
1110 FOR S=1 TO 4 
1120 STY=STY+Y 
1130 STX=STX+X 

1140 IF (STX>7) + (STX<1)THEN 1200 
1150 IF (STY>6)+(STY<1)THEN 1200 


1160 IF BOARD(STY,STX)<>PL THEN 1200 

1170 FL-FL+1 

1180 IF FL=3 THEN 1350 

1190 NEXT S 

1200 X—X 

1210 Y—Y 

1220 NEXT RE 

1230 RETURN 

1240 OLDCOP-COP 

1250 FOR PL0T*1 TO LEN(MEO 

1260 K«ASC(SEG*(ME*,PLOT, 1) ) 

1270 IF K< >59 THEN 1310 

1280 RDP=RDP+1 

1290 COP=OLDCOP 

1300 GOTO 1330 

1310 CALL HCHAR(ROP,COP,K) 

1320 COP-COP+1 
1330 NEXT PLOT 
1340 RETURN 

1350 IF PL-1 THEN 1380 
1360 CLR*4 
1370 GOTO 1390 
1380 CLR-7 

1390 CALL COLOR(13,5,CLR) 

1400 FOR REP»1 TO 4 
1410 C«7+STX*2 
1420 R=*4+STY*2 
1430 CALL HCHAR(R,C,128) 

1440 CALL HCHAR(R,C+1,129) 

1450 CALL HCHAR(R+1,C,130) 

1460 CALL HCHAR ( R+ 1,C+1,131) 

1470 STX-STX-X 

1480 STY=STY-Y 

1490 NEXT REP 

1500 FOR FLASH»1 TO 20 

1510 CALL COLOR(13,5,16) 

1520 CALL SOUND(100,330,0) 

1530 CALL COLOR(13,5,CLR) 

1540 CALL SOUND(100,660,0) 

1550 NEXT FLASH 
1560 R0P*22 
1570 C0P=3 

1580 ME*=NS(PL)&" E' IL VINCITORE “ 
1590 CALL HCHAR(22,1,32,32) 

1600 GOSUB 1240 

1610 CALL COLOR(13,5,16) 

1620 CALL SOUND(100,330,0) 

1630 CALL COLOR(13,5,CLR) 

1640 CALL SOUND(100,660,0) 

1650 CALL KEY(0,K,S) 

1660 IF S=0 THEN 1610 
1670 CALL CLEAR 
1680 GOTO 330 
1690 CALL CLEAR 


1700 PRINT 
1710 PRINT 
1720 PRINT 
1730 PRINT 
IERA." 

1740 PRINT 
E" 

1750 PRINT 
1760 PRINT 
1770 PRINT 


:"LO SCHERMO SIMULA UNA 
"IL GIOCO CONSISTE NEL 


: : 


QUATTRO IN LINEA* 


SCACCHIERA DI 7X6 POSIZIONI" 

METTERE IN FILA 4 PEDINE SULLA SCACCH 


"VINCE CHI RIESCE A PIAZZARE PER PRIMO LE PEDINE SIA IN VERTICALE CH 

"ORIZZONTALE O ANCHE IN DIAGONALE." 

"PREMI ‘UN TASTO DOPO OGNI RISULTATO DI PARTITA" 

ss"PREMI UN TASTO PER INIZIARE a##########################" 


1780 CALL KEY(0,K,S) 
1790 IF S=0 THEN 1780 
1800 GOTO 200 


1 ? 




















3 


Quattro in fila 





Ecco un gioco divertente, adatto per affinare la vostra abilità e tattica. Se volete saperne di più, una 
volta caricato il programma, digitate la lettera "Y". 


5 REM ""FOUR IN A ROW ,,M 
7 REM CTE INTERNATIONAL UFF TEC CM 
0 HOME 


230 PRINT "DI 4 IN MODO ORIZZONTALE" 
240 PRINT "VERTICALE 0 DIAGONALE." 
250 PRINT "TU HAI LE 'X’ ." 


10 

PRINT TAB( 22);"QUATTRO IN FILA" 

260 

PRINT : PRINT 


20 

PRINT 

270 

X4 = "X": 04 = "0" 


30 

PRINT 

280 

FOR I = 1 TO 8: FOR J = 

1 TO 8:B4 

40 

PRINT s PRINT : PRINT 

<I,J) = NEXT J: NEXT 


100 

DIM B4<8,8),L<8>,S<4),F<4) 

290 

FOR ZI = 1 TO 8:L(Z1) = 

0: NEXT Z 

110 

DIM V <16), N ( 4 ) 

1 



130 

DATA 1,100,500,1E20,1,800,4000,1 

295 

PRINT : PRINT : PRINT 


E 20 


300 

INPUT "VUOI GIOCARE PER 

PRIMO ?"; 

140 

DATA 1,75,900,1E18,1,450,3000,1E 

A4 



18 


310 

IF MID4 (A4,1,1) = "N" 

THEN 605 

150 

FOR ZI = 1 TO 16: READ V(Z1): NEXT 

320 

GOSUB 340 




330 

GOTO 450 


ZI 


340 

FOR I = 8 TO 1 STEP - 

1 

160 

PRINT "IL GIOCO DEI QUATTRO IN FI 

350 

FOR J = 1 TO 8 


LA" 


360 

PRINT " ";B4(I,J); 


170 

INPUT "VUOI LE ISTRUZIONI DEL GIO 

370 

NEXT J 


CO ?";A* 

380 

PRINT 


180 

IF MID4 (A*,1,1) = "N" THEN 270 

390 

NEXT 


190 

IF MI-D4 (A4,1,1) = "S" THEN 210 

400 

PRINT " "; 


200 

GOTO 170 

410 

PRINT : PRINT " FOR 

M 

II 

H 

O 

210 

PRINT "IL GIOCO CONSISTE NEL METT 

8: PRINT " "Jli" NEXT I 


ERE 

• 

420 

PRINT : PRINT 


220 

PRINT "DELLE 'X' E DELLE '0' IN F 

430 

RETURN 


ILE 


440 

PRINT "MOSSA NON CORRETTA, RIPROV 




A. " 






450 

INPUT "SCEGLI UN NUMERO 

TRA 

1 E 

8 

1060 

VI = V 


?" ; 

M 




1070 

M9 = M4 


460 

M = INT (M) 




1080 

NEXT M4 


470 

IF M < 1 OR M > 8 THEN 440 



1090 

IF M9 < >0 THEN 1120 


480 

L = L(M) 




1100 

PRINT "PARITÀ’." 


490 

IF L > 7 THEN 440 




ino 

GOTO 1580 


500 

L(M) = L ♦ 1 :L * L ♦ 1 




1120 

M = M9 


510 

BS<L,M> = X* 




1 125 

HTAB 30: VTAB 20: PRINT " 


520 

PRINT 




": VTAB 21: HTAB 30: PRINT " 


530 

GOSUB 340 




1 

: VTAB 24 


540 

PS = X* 




1 130 

PRINT "IL COMPUTER GIOCA NELLA C 

550 

GOSUB 1240 




OLONNA "5M: PRINT 


560 

FOR Z = 1 TO 4 




1 140 

L = L (M) + 1 : L (M) = L (M) ■*- 1 


570 

IF S(Z) < 4 THEN 600 




1150 

BS(L,M> = OS 


580 

PRINT "HAI VINTO ! ! !" 




1 160 

PS ~ OS: GOSUB 340 


590 

GOTO 1580 




1170 

GOSUB 1240 


600 

NEXT Z 




1 180 

FOR Z = 1 TO 4 


605 

HTAB 30: VTAB 20: INVERSE : 

PRINT 

1190 

IF S(Z) < 4 THEN 1220 


"STO ": HTAB 30: VTAB 21: 

PRINT 

•PEN 

1200 

PRINT "IL COMPUTER VINCE !! 

•• 






1210 

GOTO 1580 


SANDO";: NORMAL : VTAB 24 




1220 

NEXT Z 


610 

M9 = 0:VI * 0 




1230 

GOTO 450 


620 

NI = 1 




1240 

QS = XS 


630 

FOR M4 = 1 TO 8 




1250 

IF PS = XS THEN QS = OS 


640 

L = L(M4) ♦ 1 




1260 

D2 = 1 : DI = 0 


650 

IF L > 8 THEN 1080 




1270 

Z = 0 


660 

V = 1 




1280 

GOSUB 1360 


670 

PS = OS:W = 0 




1290 

DI = 1 :D2 = 1 


680 

M = M4 




1300 

GOSUB 1360 


690 

GOSUB 1240 




1310 

D2 = 0:DI = 1 


700 

FOR ZI = 1 TO 4:N(Z1) = 

0: 

NEXT 

Z 

1320 

GOSUB 1360 


1 





1330 

D2 = - 1 : DI = 1 


710 

FOR Z = 1 TO 4 




1340 

GOSUB 1360 


720 

S = S(Z) 




1350 

RETURN 


730 

IF S - W > 3 THEN 1130 




1360 

D = 1 : S = 1 


740 

T = S + F ( Z ) 




1370 

T = 0 


750 

IF T < 4 THEN 780 




1380 

Z = Z + 1 


760 

V a V ♦ 4 




1390 

C = 0 


770 

N (S) = N (S) ♦ 1 




1400 

FOR K = 1 TO 3 


780 

NEXT Z 




1410 

M5 = M ♦ K * D1:L1 = L + K * 

D2 

790 

FOR I = 1 TO 4 




1420 

IF M5 < 1 OR LI < 1 OR M5 > 

8 OR 

800 

N » N ( I ) - 1 * 




LI > 

8 THEN 1510 


810 

IF N = - 1 THEN 840 




1430 

BS = BS(LI,M5) 


820 

Il = 8 * W ♦ 4 * SGN <N> 

■f 

I 


1440 

IF C = 0 THEN 1480 


830 

V = V + V<I1) + N * V(8 * 

W 

«- I) 


1450 

IF BS = QS THEN K = 3: GOTO 

1510 

840 

NEXT I 







850 

IF W = 1 THEN 880 




1460 

T = T + 1 


860 

W = 1 : PS = X* 




1470 

GOTO 1510 


870 

GOTO 690 




1480 

IF BS - PS THEN S = S + 1: 

BOTO 

880 

L * L ♦ 1 




1510 



920 

IF L > 8 THEN 1020 




1490 

C « 1 


930 

GOSUB 1240 




1500 

GOTO 1450 


940 

FOR Z = 1 TO 4 




1510 

NEXT K 


950 

IF S(Z> >3 THEN V = 2 




1520 

IF D = 0 THEN 1550 


960 

NEXT Z 




1530 

D = 0: D1 = - DI : D2 - - D2 


1020 IF V < VI THEN 1080 




1540 

GOTO 1390 


1030 IF V > VI THEN NI = 1: 

GOTO 1060 

1550 

S(Z) = S 







1560 

F ( Z ) = T 


1040 NI = NI ♦ 1 




1570 

RETURN 


1050 IF RND (1) > 1 / NI THEN 

1080 


1580 

END 
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Giochiamo in borsa 

Gioco di simulazione!!! 

Dovete cercare di guadagnare quanto piu denaro possibile acquistando e vendendo le azioni di alcu¬ 
ne Compagnie: AIR ROYAL (costruzioni aereonautiche), CHIMICA M. (farmaci), ENERSOLE (ricer¬ 
ca energia alternativa), G. ORO (oro e preziosi), IN.ASS. (assicurazioni). 

Inizialmente il capitale a disposizione è di50.000$. 

Sullo schermo viene mostrato il prezzo di ogni singola azione e le varie fluttuazioni sul mercato. 

Per acquistare le azioni (non più di 100 per volta) dovete inserire la lettera iniziale del nome della 
Compagnia seguita dal numero delle azioni che si desiderano comprare: 

ESEMPIO: acquisto 10 azioni della AIR ROYAL = "AIO". 

Per vendere, invece, dovete inserire sempre l'iniziale del nome della Compagnia ma il numero che la 
seguirà dovrà essere negativo. 

ESEMPIO: vendita 10 azioni ENERSOLE = "E-10" 


Dimostrerete di essere veramente degli ottimi uomini d'affari? 


VARIABILI 

M(5) 

Z(5) 

D 

A$ 

M 

F 


array contenente il numero delle azioni di ciascuna Compagnia, 
valore di ogni singola azione 
capitale a disposizione 

Compagnia e numero delle azioni da vendere o acquistare 

numero delle azioni da acquistare (se positivo) o da vendere (se negativo) 

controllo variabili 


STRUTTURA PROGRAMMA 
Linee 

15-25 = determinazione valore iniziale delle azioni (300) 

30 = determinazione patrimonio iniziale (50000) 

35-55 = stampa nome Compagnie 

60-70 = stampa valore azioni e numero delle azioni possedute 

80 = input delle azioni da vendere o acquistare. 

110-125 = fluttuazione del valore delle azioni mediante funzione RND. 


1 REM GIOCHIAMO IN BORSA 
5 DIM M ( 5 i 
10 DIM Z(Si 
15 FOR F = 1 TO S 
20 LET Z(Fi=300 
25 NEXT F 
30 LET D =50000 
35 PRINT "AIR ROYAL" 

40 PRINT "CHIMICA M." 

45 PRINT "ENERSOLE" 

50 PRINT "G. 0.R.O.” 

55 PRINT "INASS•" 

60 FOR F = 1 TO 5 

65 PRINT AT F-l,10;Z(Fi ;" 

T F-l,15,M(Fi ;" 

70 NEXT F 
75 PRINT D;" 

80 INPUT A* 

85 LET A = INT f (CODE AG-36) /2) 
90 LET M=UAL AG(2 TO i 
95 IF ABS M > 100 OR A < 1 OR A .•» 5 
THEN GOTO 80 
100 LET M (A) =M (Ai +M 
105 LET D=D-M*ZlAi 
110 FOR F =1 TO 5 

115 LET Z(Fi=Z(Fi+INT ((RND-0.5 
) *M) 

120 IF Z ( F ) -C 5 THEN LET Z (Fi =5 
125 NEXT F 
130 GOTO 60 
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VIC-20 + 3K 



Alien 



Un classico da guerre stellari. 

Siete il pilota di una caccia da combattimento intergalattico in missione speciale. 

Alcune navicelle aliene vi hanno intercettato e si dirigono verso di voi con intenzioni ostili. 

Avete pochissimo tempo per distruggerle, inquadrandole nel vostro mirino e facendo fuoco. 

Fate attenzione, ogni qualvolta ripulite lo schermo, il gioco ricomincia aumentando il numero delle 
astronavi da colpire. 

Non è esattamente un gioco facilissimo, anzi, dopo un po' di tempo, metterà i vostri nervi a dura pro¬ 
va. 

Per funzionare esso necessita di un'espansione di memoria di 3Kbytes; con espansioni maggiori, la 
mappa di definizione caratteri e colori dello schermo cambia locazione. 

Se vorrete e se ne siete in possesso, potrete usare anche la SUPER-EXPANDER. 

Le istruzioni per il gioco sono inglobate nel programma. 


0 CLR:RESTORE : GOSUB10000 

1 MZ=13 : MX=1 

2 DIME<1,MZ),D<4> 

5 GOSUB1000 -FORI = 1T04:REfìDD< I > :NEXT 
? PRINT'TW; 

8 GOSUB300 

9 P0KE36879,8 : POKE650,255 •' P0KE36878,15 : 

T I$=" 000000 " =GOSIJB400 

10 FGRI=1T0MX 

11 IFMX=13THEN1100 

12 PRINT"SFH : "SC"PftMfT. :"INT<TI/60> 

15 I FVflL < TI % ) >30+ < MX*7 > THEN1200 

17 I FNG= 1 THENNG=0 •' GOSUB900 • GOSUB 1000 : G0T09 
20 IFE <0,1)=0THENGOSUB100 
30 GETft* 

35 IFPEEK < 198)>2THENP0KE198,2 


! 40 IFfì$0" "THENGOSUB200 

88 M=0 

89 GOSUB300 

90 NEXTI 

99 GOTO10 

100 GOSUB600 

110 OHINT<RND<1)#4) +1GOT0120,125,130,135 

120 E<1,I)=E<1,I)+22-GOTO140 

125 E<1,I)=E<1,I)-22 : GOTO150 

130 E<1,I>=E<1,I)-l : GOTO150 

135 E(l,I)=E<1,I>+1 : GOTO140 

140 IFE<1,I)<7724THENE<1,I)=E<1,I>+22 

150 IFE<1,I)>3135THENE<1,I)=E<1,I)-22 

155 P0KE36874,123+1*10 

160 GOSUB700 

180 P0KE36874,0 
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150 RETURN 

200 IFft$=CHR$<13)THENGOSUB500 

220 IFR$="V"THENM=-22:GOTO230 

230 IFA$=-B"THENM=+22 : GOTO280 

240 IFR$="G"THENM=-1 : GOTO280 

250 IFfi$="H"THENM=+l : GOTO280 

260 GOTQ290 

280 GOTO300 

290 RETURN 

300 POKEV,32 

310 V=Y+M 

320 POKEV,36 

330 RETURN 

400 PRINT"!!" j : FORI=1TO10 

403 PRINT"» M ;SPC<I); M II UN RTTIMO" 

404 FORPP=0T050 : NEXT ; NEXT:PRINT" 73" ; 

405 P0KE36876,0 
410 FORI=1T04 
420 FORJ=0TO110 

430 POKE33400+110#I+J,1 + 1 
440 NEXT NEXT 
450 RETURN 

500 F1=Y-126 : F2=V-138 
510 F3=V+126F4=Y+138 
520 F0RK=1T06 

530 POKEF1,32:P0KEF2, 32 :P0KEF3,32 :P0KEF4,32 
540 P0KE36376,200-K#4 

555 F1=F1+21 F2=F2+23F3=F3-21:F4=F4-23 

560 POKEF1,73:P0KEF2,77 :P0KEF3,73 :P0KEF4,77 

570 NEXT:POKE36876,0 

580 FORJ=lTOMX 

582 IFE < 0, J > O0THEN586 

584 IFE a,J)=VTHENGOSUB800 

586 NEXT:PUKE36876,128+K#5: IFNG=1THENSC=SC+100 
590 POKEF1,32:P0KEF2,32 :P0KEF3,32 :P0KEF4,32 
595 P0KE36376,0 

599 RETURN 

600 POKEE(1,1),32 
610 POKEE<1,1>-1,32 
620 POKEE(1,I>+1,32 
690 RETURN 

700 POKEE<1,1>,81 
710 POKEE<1,I>-l,60 
720 POKEE<1,1>+1,62 
790 RETURN 
800 E<0,J>=1 

810 P0K.E36877,200 : FORJK= 1TO30 

830 POKEE<1,J>,42 :POKEE<1,J>-1,42:POKEE<1,J>+1,42 
832 NEXT ; P0KE36877,0 

835 POKEE<1,J>,32:POKEE<1,J>-1,32:PQKEE<1,J>+1,32 
840 SC=SC+PEEK< V+30720> #2 
850 REM 

860 FORW=lTOMX 

870 IFE < 0,W >=1THENBN=BN+1 

880 NEXTW 

890 IFBN>=MXTHENNG=1 
895 BN=0 

899 RETURN 

900 REM#NUOVO GIOCO# 

910 FGRP=ITO1000:NEXTP 

915 IF < MX> = 12THENG0SUB1300 GOSUB1400 : GOTO1100 
920 PRINr'rjaMBWWri SEI RIUSCITO!" 

930 PRINT"*»MRDESSO DIVENTA PIU"" 

940 PPI NT " nifb IFFICI LE ! ! " 

950 MX=MX+1 

960 PRI NT " fifrìii: I SONO "MX" COLPI ! ! " 

970 FORP=1TO5000:NEXTP 
980 TI t ="000000" 
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930 RETURN 

999 RETURN 

1000 FORI=1TQMX 

1010 E <1,I>=7630+1NT <RND<.> *400> +22 : E < 0,1)=0 
1020 NEXT 
1030 V=7910 
1040 FRI NT'T3" 

1050 RETURN 

1100 PRI NT " ?!«««?>M M i H A I PULI TO " 

1110 PRINT" «!*MML A GALASSIA" 

1115 PRINT M «®MÌHDA TUTTI GLI" 

1120 PRINTMWMMFLIENI. " 

1125 PRINT"«!*»MHIL TUO PUNTEGGIO" 

1130 PRINT":«!»MME ORR DI" 

1132 PR I NT " SC* 12" PUNTI " : SC=SC* 12 

1135 PRINT"«««a CIRO ! ! !" GOTO1299 


1200 

1210 


PR I NT " SfìDVERRUNQVERRUNOVERRUN ! " 


PRINT" if««««««« 


ÌQQQQQQDQQ 


[BftWWPQIiVERRUNOVERRUNOVERRUN" ■ P0KE8163,33 


1212 F0RI=1T015 

1215 POKEV-22,42 :POKEY+22,42•POKEY-1,42 -POKEV+l,42 
1220 FORL=1T0200 : NEXTL 

1225 POKEV-22,32•POKEY+22,32 :POKEY-1,32 :PQKEY+1,32 
1227 POKEV-23,42 :POKEV+21,42 :POKEY-21,42 :POKEY+23,42 
1230 FORL=1TO200 : NEXTL 

1240 POKEV-23,32 :POKEV+21,32 :POKEY-21,32■POKEY+23,32 
1245 POKE36878,15-1 :P0KE37877,160-1 
1250 NEXTI 

1260 P0KE36S7S,0 :PQKE36877,0 

1270 PRINr'-tfMKflWMMiiHAI PULITO" 

1271 PR I NT " MX-1 " SETTORI " 

1275 PRINT"«»M*UDELLA GALASSIA" 

1280 PRINT"««MIL PUNTEGGIO E'"SC*MX"." 

1288 PRINT" «MCIRO! ! !" 


1299 POKE198,0-FORI = 1TO8000:NEXT : PRINT'TH"; : P0KE36879,27 : END 

1300 FOR I = 128T0254 : P0KE36874, I : P0KE36875,350-1 : P0KE36876, I • NEXT : P0K.E36374,0 : POKE 
36375,0: 


1310 POKE36376,0:RETURN 

1400 GOSUB1500 : D=1 : Y=7703 : FORI=160TO130STEP-.05 
1410 P0KE36877,I 

1420 POKEV, 160 : Y=V+D< D > •' POKEY, 86 : 1FPEEK< Y+D<D ) ) = 160THEND=D+1 : IFD>=5THEND=1 


1430 NEXT = P0KE36877,0 :DRTR1,22,-1,-22 
1490 RETURN 


1500 FQRI=0TO21 
1510 POKE76S0+I,160 
1520 POKE7701+I*22,160 
1530 P0KE81S5-I,160 
1540 P0KE8164-1*22,160 
1550 NEXT 
1590 RETURN 

10000 PR I NT " XOMRNDI : : PRINT "-" 

10001 PRINT" STt*! - ALTO»" 

10002 PRINT"SDÌ - BASSO»" 

10003 PRINT"3C5 - SINISTRA»" 

10004 PRINT" 2H1 - DESTRA»" 

10005 PRINT"5RETURNS - FIRE" 

10006 PRINT"-" 

10007 PRINT"TEMPO LIMITE: 35-130 SECONDI." 

10008 PRINT"BUONA FORTUNA!!!" 

10009 PRINT" SPREMI UN TASTO!" : WAIT203,191 :GETA$: RETURN 


NECESSITA DI SUPER EXPANDER OPPURE DI ESPANSIONE DA 3KBYTES 
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Regressione lineare 


Con questo programma molti calcoli statistici', in realtà alquanto noiosi da svolgere manualmente, 
vengono eseguiti in pochi secondi, permettendo rapide elaborazioni di risultati sperimentali. 

Il programma, infatti, permette di valutare statisticamente, mediante una regressione lineare, due in¬ 
siemi di dati per determinare se tra questi sussiste una relazione matematica di tipo lineare; un esem¬ 
pio potrebbe essere il peso in funzione dell'altezza di una popolazione di individui o l'assorbimento 
di luce di uno schermo colorato in funzione dello spessore di questo o la tensione ai capi di una resi¬ 
stenza in funzione del valore di questa. 

Sfruttando le formule di calcolo del metodo dei Ministri Quadrati, viene determinata l'equazione del¬ 
la retta che in un diagramma cartesiano meglio unirebbe i punti aventi per coordinate le coppie di da¬ 
ti, - cioè: peso e altezza, assorbimento e spessore - dati che vengono introdotti nel programma me¬ 
diante INPUT. Piu coppie di dati si introducono, piu preciso risulterà il calcolo. 

Vengono inoltre calcolati i coefficienti di determinazione e di correlazione (parametri per la linearità) 
e l'errore standard di stima. 

È anche presente una opzione che permette di interpolare dalla funzione determinata quanti valori in¬ 
cogniti si vogliono, introducendo i dati noti. 

Viene data, inoltre, la visualizzazione grafica dei punti e della retta - in alta risoluzione - mediante 
una routine in Linguaggio Macchina contenuta nelle linee da 2000 a 2520 (DATA) che va inserita fa¬ 
cendo molta attenzione in quanto una errata trascrizione dei numeri potrebbe causare un blocco del 
sistema operativo. 


STRUTTURA PROGRAMMA 
Linee 

0- 44 stampa copertina e richiesta istruzioni 

45- 110 introduzione dati 
20- 250 elaborazione dati 
260- 290 stampa risultati 
300- 410 interpolazione valori incogniti 
412- 416 richiesta grafico 
420- 460 richiesta altra regressione e fine 
500- 540 normalizzazione dati per grafico in alta risoluzione 
2000-2420 routine in Linguaggio Macchina per grafico in alta risoluzione 
2458-2560 stampa grafico 
2520-2560 ritorno al video (bassa risoluzione) 

2998-3320 subroutine stampa istruzioni 

N.B. Linea 3190: digitare "BUON LAVORO" con il tasto 'SHIFT LOCK' inserito 


VARIABILI 

N: 

X Y: 

j,'k’l, M, 

R2: 

B, A: 

W, Z; 

XX, YY, 

YF: 


numero di coppia di dati 
coppia di valori da correlare 

variabili per lo sviluppo dei calcoli statistici 
coefficienti della retta di regressione 
valori massimi di x e y 

coordinate x e y normalizzate ai fini della rappresentazione grafica (alta risoluzione) 
ordinata dell'estremo superiore della retta di regressione 
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CBM64 



1 REM * REGRESSIONE LINEARE * 

2 REM * * 

3 REM * DI MAURO CIFANI * 

4 REM * * 

5 REM * * 

6 REM * * 

7 REM * * 

9 PQKE53280,0 :P0KE53281,6 

10 PRINr"^Mtìi!lRl*!MB*»Ì»»ÌÌ»»»ia REGRESSIONE LINEARE " 

20 PRINT“*UU»*MMMÌMMfl DI MAURO CI FANI ■" 

22 PRI NT 11 ■" 

24 PRINT"?M»M»MMMMia ■" 

26 PRINT"J»M**MMMÌÌMia ■** 

30 PRINT"MMSW»FREMI UN TASTO PER CONTINUARE** 

40 GETA$ : IFA$=""THEN40 

41 PRINT"□"CHR$< 14>"MPlfllSlPMtìBW^PMiia VUOI LE ISTRUZIONI? <S/N> ■" 

42 GETA$:IFA$=""THEN42 

43 IFAf="S"THENGOSUB30O0 : IFA$0"N"THEN42 

44 : 

45 REM ***INTRODUZIONE NUM. PUNTI*** 

46 : 

50 PRINT’LT 

60 INPUT"NUMERO DI PUNTI DA ELABORARE <MIN.3)">N : DIMX<N)/Y<N) 

1O0 FORI*lTON : PRINT : F’RINT M X^ V DEL PUNTO"; I; 

110 INPUTX,V : X<I>=X : V<I>=V 

119 : 

120 REM ♦♦^ACCUMULO SOMME INTERMEDIE#** 

121 : 

130 J=J+X•K=K+V'L=L+X12 : M=M+V12 -R2=R2+X*V 
140 NEXTI 

149 : 

150 REM ♦♦♦CALCOLO COEFFICIENTE*** 

151 : 

200 B= <N*R2-K*J)/(N*L- J12> •' A=<K-B*JVN 

210 FRINT"3" :PRINT PRINT PRINT"L ANDAMENTO PUÒ ESSERE RAPPRESENTATO" 
220 PRINT"DALLA SEGUENTE FUNZIONE:" 

230 PRINT PRINT"F<X>= ";A; " + <";B;"* X)" 

239 : 

240 REM ♦♦♦CALCOLO REGRESSIONE*** 

241 : 

250 J=B*<R2-J*K/N>:M=M-K12/N•K=M-J:R2=J/M 
260 PR INT : PRI NT" WWODOEFFI C IENTE DI " 

270 PRINT"DE TERMINAZIONE <R12> = ";R2 
230 PRINT : PRINT"COEFFICIENTE DI " 

285 PRINT"CORRELAZIONE= ";SQR<R2> 

290 PRINT:PRINT"ERRORE STANDARD- ";SGR<K/<N-2>) 

299 : 

300 REM ***OPZIONE INTERPOLAZIONE*** 

301 : 

310 PRINT M WM*Wa CALCOLO INTERPOLAZIONE? <S/N) ■" 

320 GETA$ : IFA$=""THEN320 

330 I FA$=" S " THEN350 : I FA$0 " N " THEN320 

335 G0T0412 

353 PRINT u n“ 

360 PRINT i, Xn>»WÌMimia INTERPOLAZIONE ■" 

370 PRINT"*MINSERIRE X=000 PER CHIUDERE" 

380 PRINT PRINT: INPUT"X = ";X 
390 IFX=000THEN412 
400 F*RINT"V = ";A+B*X 

410 GOT0380 

412 PRINT**^llPl«tì«l»I«!!l*»MHa VUOI IL GRAFICO? <S/N> ■" 

414 GETA$ : IFA$=""THEN414 

416 IFA$= "S"THEN50F1 IFA$0"N"THEN414 

419 : 

420 REM ♦♦♦OPZIONE ALTRA REGRESSIONE*** 

421 : 

430 PRINT"ZH!l«tì«BItì*!l«*!l«»*Ì*ia ALTRA REGRESSIONE? <S/N> ■" 

440 GETAT IFA*=""THEN440 
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TT 


450 IFfi$="S"THEN454 : IFft$O"N"THEN440 
452 GOTÙ460 
454 CLR : GOTO50 

460 PRINTCHR$<142)"IT ■ POKE53280,254 :P0KE53231,246 : END 
500 PRI NT "RTTENDERE, PREGO ■" 

50*3 : 

51Ù REM#**f40RMALIZZRZIONE DATI*** 

511 : 

520 W=0 : Z=0 FGRI=1T0N IFX<I»WTHENW=X<1>:IFV<I>>ZTHENZ=V< l >■NEXT 
530 FÙRI=1TON'XXCI>=INT<220*X<I)/W) : VV<I)=INT<160*V<I)/Z>:NEXT 
540 VF~INT•; 160*<fl+B#X<N> VZ> 

1339 : 

2000 REM##*INIZIO ROUTINE L.M.**# 

2001 : 

2810 DA1A162,172,160,2,32,212,187,32,73,184,32,131,177,169,0,133,34,163,36,133,3 

ir 


202O 

2030 

2040 

2O50 

2060 

2080 

2O30 

2130 

2140 

2150 

2160 

7 

2170 

2180 

2130 

2210 

2220 

2230 

7 

2240 

2250 

2260 

2270 

2280 

2230 

230O 

2303 

2310 

2320 

2333 

2340 

2341 
2350 
2353 
2360 


URTAI65,100,288,75,163,139,56,229,101,144,68,168,41,248 

DATA 133,101,74,102,34,106,102,34,101,101,106,102,34,106,102,34,106,102,34 

DATA101,35,133,35,165,21,74,208,37,165,20,144,6,230,35 

DATR201,64,176,27,41,248,133,101,152,41,7,101,101,16S,165,20 

DATR41,7,170,169,128,202,48,3,74,208,250,17,34,145,34,162,255,134,254,24,96 

DAT A163‘, 0, 162,32,160,36,24,132,21,160,0,132,20,145,20,200,208,251 

DA T R230,21,202,203,246, 176,227,165,2,162,4,160,92,56,176,229 

DAT A160,0,177,122,201,44,203,43,32,115,0,32,133,173,32,73,134,32,204,188 

DATA 162,167,160,2,32,212,187,32,170,177,132,20,133,21,32,253,174,32,138,173 

DAT A32,73,134,32,204,188,32,0,192,144,205,201,164,203,166,165,254,240,205 

DATA32,115,0,32,138,173,32,73,184,32,204,138,169,167,160,2,32,30,134,162,17 

DATA160,2,32,212,187,32,253,174,32,138,173,32,73,184,32,204,138,169,172,160 
DATA2,32,80,184,32,139,137,70,102,169,177,160,2,32,140,186,165,106,41,127 
DATA133,106,163,105,160,0,32,91,188,10,144,7,169,105,160,0,32,162,137 
DRTA32,170,177,132,75,133,76,203,6,170,208,3,76,140,192,32,145,179,32,202 
HATA187 

DATA169,177,160,2,32,15,187,162,177,160,2,32,212,187,169,87,160,0,32,162,18 

DATR169,32,160,0,32,15,187,32,199,187,165,75,208,4,198,76,48,52,198,75 
DATA163,177,160,2,32,162,187,169,167,160,2,32,30,184,162,167,160,2 
DRTA32,212,187,32,73,184,32,170,177,132,20,133,21,169,92,160,0 
DATR32,162,187,169,172,160,2,32,80,184,32,0,192,144,196 

DATA169,167,160,2,32,162,137,32,73,184,32,204,188,162,167,160,2,32,212,137 
DATA169,172,160,2,32,162,187,32,73,184,32,204,188,162,172,160,2,32,212,137 
DATA76,140,192 

REM*****FINE ROUTINE LM#**** 


REM****#CRRICA ROUTINE LM#*#** 

FORI=49152T049535:READP : POKEI,P:NEXT 
REM*|-HIAMATA SUBR. E PULIZIA SCHERMO GRAFICO* 


2361 : 

2370 PL=43292 : CL=43258 : SVSCL 

2379 : 

2380 REM*****INIZIALIZZA VIC II#**** 

2381 : 

2390 VI=53248 :M=V1 + 17:RB=V1+24 = 01=56576 

2400 POKEM,PEEK<M>0R32 : POKEAD,7*16+8 :POKECI,PEEKCCI)AND254 

2409 = 

2410 REM***#*SCELTA COLORI***** 

2411 = 

2420 PGKE2,207 

2427 = 

2428 REM***STAMPA GRAFICO### 

2429 = 

2430 SVSCL:SVSPL,10,5T010,200 
2440 SVSPL,5,10TG250,10 

2500 FORI = 1TON : SVSPL, 10+XX< I ), 10+VV< I >•: NEXT 
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CBM64 -VIC 20 


2510 SVSPL,10+XX<1>,10+VV(1>T010+XX<N>,10+ VF 
2513 : 

2520 REM***RI TORNO A SCHERMO NORMALE*** 

2521 : 

2530 GETA$•IFA$=""THEN2530 

2540 POKEM,PEEK<M>AND223: POKERD,21•POKECI•PEEK< CI> ORI 
2560 GOTO430 
239? : 

2998 REM***SUBROUT. STRMPR ISTRUZIONI*** 

2999 : 

3000 PRINT"3 -,L PROGRAMMO PERMETTE HI DETERMINARE" 

3010 PRIMT"IL TIPO DI RELAZIONE ESISTENTE TRA" 

3020 PRINT"DUE INSIEMI DI GRANDEZZE ENTRAMBI VARIA-" 
3030 PRINT"BILI CON CONTINUITÀ .TALI CHE UNA RISUL-" 
3040 PRINT"TI FUNZIONE DELL ALTRA." 

3045 PRI NT ".VENGONO EFFETTUATI I CALCOLI STATISTICI" 
3050 FRINT"PIU'ADATTI PER RICAVARE I COEFFICIENTI " 
3060 PRINT"DI DETERMINAZIONE,DI CORRELAZIONE,L'ER-" 
3070 PPINT"RORE STANDARD DI STIMA E L'EQUAZIONE" 

3080 PRIMT"DELL A LINEA CHE MEGLIO INTERPOLA I DATI" 
3030 PRINT"E DESCRIVE LA RELAZIONE FRA LE DUE GRAN-" 
3100 PRINT"PEZZE.,N BASE A QUESTA E" POSSIBILE" 

3110 PRINT"INTERPOLARE VALORI INCOGNITI,ED E" POS-" 
3120 PRINT"SIBILE INOLTRE GRAFICORE I PUNTI NOTI E" 
3130 PRINT"LA RETTA IN ALTA RISOLUZIONE," 

3140 PRINT"MHW«aPER PROSEGUIRE PREMI UN TASTO®" 

3150 GETA$ : IFA$=""THEN3150 

3155 PRINT "INSERIRE IL NUMERO DELLE COPPIE DI DATI" 
3160 PRINT"DA CORRELARE ED I VALORI DI QUESTI COME" 
3170 PRINT"X,V DEI VARI PUNTI,BATTENDO SEMPRE IL" 

3180 PRINT"TASTO [RETURN] AL TERMINE." 

3182 PRINT"TER LA RAPPRESENTAZIONE GRAFICA IL PRO-" 

3184 PRINT"GRAMMO NON ACCETTA IL VALORE 0." 

3185 PRINT"lUONE CORRELAZIONI SI HANNO PER VALORI" 

3186 PRINT"DEI COEFFICIENTI DI DET.NE E DI CORR.NE" 

3187 PRINT"VICINI Al." 

3188 PRINT"~0P0 IL GRAFICO PREMENDO UN TASTO SI" 

3189 PRINT"TORNA AL VIDEO IN BASSA RISOLUZIONE." 

3190 PRINT"flfll JT/ UMTJT\ m 

3200 PRINT" PlPlPlPW3PER PROSEGUIRE PREMI UN TASTO®" 

3210 GETAf : IFAt=""THEN3210 
3220 RETURN 


Arredamento per cucina 


Quando si lavora per un negozio di arredamento per cucine, è quasi impossibile fare a meno di trasferi¬ 
re la propria esperienza nella creazione di nuovi programmi per computer. 

PROGRAMMA 

Gli "addetti ai lavori" sanno bene che qualsiasi cucina componibile, sfrutta, nelle dimensioni dei singoli 
elementi, un modulo che quasi sempre è un multiplo di ì 5. 

Spesso capita d'incontrare clienti, che hanno delle cucine che è difficile arredare; allora ci si ritrova a com¬ 
battere con problemi di spazio, a ripetere sulla carta soluzioni con elementi di varia dimensione, al fine di 
utilizzare il maggior spazio possibile con spreco di tempo, pazienza ed energie. Perché non limitarsi a for¬ 
nire le misure delle pareti al computer, ed aspettare una sua solerte risposta che ci dica quanti moduli da 
15, 30, 45, 60 cm occorrono per ogni parete? 

Altre volte i clienti vorrebbero sapere velocemente i costi per le varie soluzioni, ma se ancora non si sa be¬ 
ne quanti elementi si potrà sistemare, come si fà a dare una risposta? 

È semplice, se si possiede un VIC 20 oppure un qualsiasi altro computer a cui questo programma è facil¬ 
mente adattabile 











ISTRUZIONI 


Elenco variabili: 

X Modulo base (equivale a 15 cm.) 

L Lunghezza parete 

B1 Dimensione di un eventuale mobile da angolo (secondo gli standards sono generalmente di 
60 oppure 105cm.) 

D Parete da riempire con altri moduli 
M1 Numero di moduli base contenuti nella parete da riempire 
M2 Numero di basi da 30 cm. contenute nella parete da riempire 
M3 Numero di basi da 45 cm. contenute nella parete da riempire 
M4 Numero di basi da 60 cm. contenute nella parete da riempire 

51 Spazio vuoto con soluzione del modulo da 15 cm. 

52 Spazio vuoto con soluzione del modulo da 30 cm. 

53 Spazio vuoto con soluzione del modulo da 45 cm. 

54 Spazio vuoto con soluzione del modulo da 60 cm. 

K1 Numero di moduli da 15 cm. inseribili nello spazio vuoto 
K2 Numero di moduli da 30 cm. inseribili nello spazio vuoto 
K3 Numero di moduli da 45 cm. inseribili nello spazio vuoto 
K4 Numero di moduli da 60 cm. inseribili nello spazio vuoto 
Z Variabile di servizio per la stampa sullo schermo delle basi 
S Variabile generica per lo spazio vuoto 
K Variabile generica per la stampa delle basi di completamento 
0 Parete occupata dalle varie soluzioni 

Il programma si divide in due parti: 

la prima stampa la presentazione lanciando in autorun il secondo programma. 

Soddisfatte le richieste dei dati, che riguardano la dimensione lineare della parete che si 
vuole arredare, e l'eventuale dimensione di un mobile ad angolo, il computer provvede ad 
arredare nella propria memoria la parete con tutte le varie soluzioni 

Sullo schermo in una prima fase verrà stampata la soluzione di base con moduli da 15 cm; 
premendo un tasto verranno visualizzate via, via le varie soluzioni, colorando diversamente 
gli eventuali mobili di completamento. Nonostante l'alto numero di variabili utilizzate, il pro¬ 
gramma occupa poca memoria, al punto da girare sulla versione base del VIC, forse per 
l'uso di un vettore N dimensionato con 30 elementi per la gestione del numero di elementi. 

I PRINT"ni" : P0KE36379, 3 

5 PRINT" 0OPVRIGHT 1984 M MfìSSIMO TRU3CELLI " 

6 PRINT” M VIA STAMIRft 70 W 00162 ROMA" 

7 F0RT=1T06000^ NEXTT:PRINT'TU" 

10 PRINT”SM,-JUI DETERMINAZIONE I” 

II PRINT"Sili ELEMENTI PER I" 

12 PRINT” »ll COMPOSIZIONE tlM I CUCINE I” 

13 PRINT" ai '•- 

14 X=15 : 

15 F0RC=7836T07344 : POKEC, 121 : NEXTC 

16 FORC=7858TO8056STEP22:POKEC,117 NEXTC 

17 FORC=7866TO8064STEP22:POKEC,118:NEXTC 

18 FORC=8078TO8086 : POKEC,120:NEXTC 

19 FORT=1T03000 : NEXT 

20 FORF=0TO3STEP2 

21 F0RK=38400T038905 : POKER,F:NEXTK,F:PRINT 

23 PR I NT ” IWflfl?MIWISI^PliI?lBllIi!lWKi!iaRRiF , REM I UN TASTOk” 

24 GOSUB1000 

25 PR I NT " ri3(_0AD I NGl” 

30 P0KE631,131 : P0KE632,13 :P0KE198,2•NEW 
1000 GETX$ : IFX$=""THEN1000 
1010 RETURN 



PFABV. 
















Vie 20 

% 



■ M :P0KE36873,8 


10 DIMNC30) : X=15 
20 PRINT'TXS 
30 PRINT"INTRODUZIONE DRTI" 

40 PRINT :PRINT"LUNGHEZZA PARETE" 

50 INPUT"IN CM. ";L 

55 PRINT-PRINT"SPAZIO OCCUPATO DA MOBILE AD ANGOLO" 

60 INPUT"IN CM. ";B1 
65 D=L-B1 : M1<N)=D/X 

70 M2<N)=M1 <N)/2 : M3(N)=M1 <N)/3 : M4<N>=M1 CN>/4 
75 S1=D-INT<M1(N>)#15 
80 S2=D-1NT < M2 < N))#30 
35 S3=»D-INT<M3<N>:>*45 
30 S4=D-INT<M4<N>>*60 

35 K1=INT<S1/X) : K2=INT<S2/X) : K3=INT<33/36> : K4=INT<S4/45) 
100 PRI NT "IT' 

210 M1<N>=INT<M1<N>> 

220 PRINT"N" "MKN>"ELEM. 

240 GOSUB1000 
250 PRI NT":]" 

310 M2 < N) = INT(M2 < N)) 

320 PRINT"N""M2 <N)"ELEM. 

340 GOSUB1000 
350 PRINT" 3" 

410 M3< N ) = INT < M3 < N)) 

420 PRINT"N" "M3 < N > "ELEM. 

440 GOSUB1000 
450 PRINT"^" 

510 M4 < N) = INT < M4 < N ) > 

520 PRINT"N*"M4<N)"ELEM. 

540 GOSUB1000 

550 PRINT'TULTRA §OLUZIONE?<S/N)" 

555 GO3UB3000 
560 IFX$="S"THENRUN 
565 PRI NT "13" : END 

1000 FORZ=0TOM < N >-1 : PRINT"3 : NEXTZ : PRINT 

1005 K= I NT <S/X SPRINT 

1010 IFBl=60THENPRINT"^k BASE ANGOLO 60" 

1020 IFB1=105THENPRINT"k. BASE ANGOLO 105" 

1025 PRINT : PRINT"SPAZI0 VUOTO CM."S"W" 

1030 IFK>=1THENPRINT"ELEM. DI GIUNZIONE... W" 

IFK>=1THENFORZ=0TOK-1 :PRINT" ZI ■"; :NEXT:PRINT" 


DA 15 CM. M" : M<N)=M1 <N) •’ S=S1 


DA 30 CM.W" : M(N)=M2<N> : S=S2 


DA 45 CM. JQ" : M < N > =M3 < N ) : S=S- 


DA 60 CM. W" : M < N > =M4 < N) : S=S4 


1040 

1041 

1042 


: GOSUB1845 


PRI NT" ZW ■' 
PRI NT" :«i ■' 
PR I NT " S£1 ■' 


NEXT 

NEXT 

NEXT 


0W 


IFK/2>=1THENFORZ=0TOK/2-1 
IFK/3>=1THENFORZ=0TOK/3-1 

1043 IFK/4>=1THENFORZ=0TOK/4-1 

1044 PRINT-GOTO1080 

1045 PRINT"&VMI" I NT OO " DA CM. 15M" 

1046 RETURN 

1050 PRINT"9PM" INT (.K/2 > " DA CM. 30W" 

1051 RETURN 

1060 PRINT"fi»MI" INTCK/3)" DA CM.45W" 

1061 RETURN 

1070 PRINT"*iH"INTO</4>" DA CM.60" 

1071 RETURN 

1030 PRINT"^DIMENSIONE PARETE";L 

1085 PRI NT "PARETE OCCUPATA"; : 0=L-S+aNT<S/X>*15> : PRINTO 
1030 PRINT"WINUTILIZZO" L-0 
3000 GOSUB3000 
3010 RETURN 

3000 GETX$ : IFX$=""THEN3000 

3010 RETURN 

RERDV. 


PRINT" : GOSUB1050 
PRINT" : GOSUB1A6A 
PRINT;:GOSUB1070 







ZX Spectrum 16 K 



Calendario 


Il programma proposto vi mostrerà il calendario di tutti i mesi a partire dall'anno 1572 , quando fu intro¬ 
dotto il Calendario Gregoriano. 

E allora... che giorno era quando siete nati? un martedì (?), un giovedì (?)... e in quale giorno cadrà il vo¬ 
stro compleanno nell'anno... 2000??? 


* » 

* CftLfNDftRIO * 

* « 

*********************** 


INK 7 


1 RCM 

2 REM 

3 REM 

4 REM 

5 REM 

6 REM 

7 REM 

100 BORDER 0; PRPER 
LS : GO SUB 1000 

110 INPUT RT 0,0; FLRSH 1;"Rnno 
LINE y*: BEEP .5,30: IF LEN 

y*=4 THEN FOR y *1 TO 4-. . IF (y*( 
RND (y$(y) <= ,, 9") THEN N 
EXT y: LET anno«URL y*. IF anno 
*1572 THEN GO TO 114 

111 GO TO 110 

li* INPUT rt 1,0;"Mese LINE 

O S : BEEP .5,30: IF (0*0"") AND 
(LEN o*<=2) THEN FOR 0*1 TO LEN 
O $ : IF (O $ CO) > = "0" » AND foSCo) <■ 
••§•*) THEN NEXT O. LET »t»4=UAL O 
f: IF ocsexl) RND (tese<=12) T 
HEN GO TO 120 
110 GO TO 11* 

120 CL9> : GO SUB 2000 
130 GO TO 100 

1000 DIM Pf(12,9): DATA "GENNAIO 
" , "FEBBRAIO" , "MARZO" , "APRILE*. 1 , "M 
AGGIO",'GIUGNO-,"LUGLIO","AGOSTO 
•* , ••SETTEMBRE" , "OTTOBRE" , "NOUEMBR 
E","DICEMBRE" ; RESTORE 1000 : FOR 
n *1 TO 12: RERD B»(n) ; NE.XT n 
1010 DIM d*(7,3): DRTR "Do»","Lu 
n " , " Ma r " , Me r ** , " G i o ” , ** Ven " , "Sab" 
: RESTORE 1010: FOR n*l TO 7; RE 
RD d*(n): NEXT n 

1020 DIM l C12> ; DRTR 31.28,31,30 
,31,30,31.31,30,31,30,31. RESTOR 
E 1020: FÒR n =1 TO 12: RERD l C n) 


C * 0 . 
LET 


(y / 4 *-I 

0.UC ID-IIK 


: NEXT n 

1030 DIM C f12) : LET 
TO 12: LET cIn)=C: 

: NEXT n 

1040 DEF FN a(y , a) =y 4 INT 
NT (yylB0) -fINT (y/48 
3) RND (FN b(y)>) 

1050 DEF FN bly) *( ly> , 4*INT 
) RND (U/lWoINT I y /18P) ) O 
✓ 400 «INT (V/40C»») 

10S0 PRINT RT 0,12; 

DRRIO... 

,_ ; '* Quest o 

Tappa 


FOR n *1 

e =c 4 l (n) 


fu/»4) 
OR (y 


INK 4;“CALEN 


_ , - p r 09 rap»a * 

il calendario di tutti i m 
da quello di ottobre del 157 
i (calendario Gregoriano 


es a 

2 quando 

venne in- trcdotto" 

1070 PRINT '' INK S;"inserisci u 
n anno di 4 cifre perca ippio 105 

2 seguito da ENTER. Inserisci 

il pese copc un nuperoda 1-12 se 
9uito da ENTER" 

1080 RETURN 

2000 LET y«anno-(pese*1) : LET s* 
tese-1*12»(ecse*l); LET dr=0: BR 
IGHT 0: CLS : GO SUB 3000: DEEP 
.3 27 

2010 LET y «anno : LET a«pese: LET 
df *7 PRIGKT 1: GO SUB 3000: BE 
EP .5,29 


1964 

|DO» 

Lun 

Ma 

Me r 

G ì O 

Ve n 

Sa b 


1 

2 

3 

4 

5 

6 

7 


B 

9 

IO 

11 

12 

13 

14 

HPR 

15 

16 

17 

18 

19 

20 

2 1 


o o 

23 

24 

25 

26 

27 

26 


29 

30 






1964 . 

DO * 

Lun 

Ma r 

Me r 

G» O 

uen 

Sa t> 




l 

2 

3 

4 

5 


& 

7 

6 

9 

10 

1 1 

12 

M«G 

13 

14 

15 

16 

17 

16 

19 


20 

2 1 

22 

23 

24 

25 

26 


27 

26 

29 

30 

31 



1984 

:>o» 

Lun 

Mar 

Me r 

G i O 

Ue n 

Sa b 







1 

2 


3 

4 

s 

6 

7 

8 

9 

GIU 

le 

1 1 

12 

1.3 

14 

15 

16 

— 

1 7 

18 

19 

20 

21 

22 

23 


24 

25 

26 

27 

26 

29 

30 


videata di CALENDARIO 


2020 LET y«anno 4(pese=12) : LET e 
«pese 41-12*(pese=12) . LET dr=l4: 

PRIGKT 0: GO SUB 3000 BEEP .5, 
30 

2030 INK 2: PLOT 33,0. DAAW 0,17 
5. PLOT 39,0: DRRU 0,175. PLOT B 
4,0: DRRU 0,175. PLOT 65,0. DRRU 
0,175: INK 7: INPUT RT 0,0; INK 

6; H f eavanti b*indietro r=indi 
ce Prepi un tasto poi prepi ent 
ER"; LINE a$: BEEP .5,30 
2040 IF al*"f" THEN LET anno=ann 
Of(Pese=12): LET pese«pese♦1-12* 
«pese =12) 

2050 IF a * = "b" THEN LET anno«ann 
o-(aese«l): LET pese«pese-1*12* ( 
pese = 1 ) 

2060 IF a$ = "r" THEN RETLIRN 
2070 GO TO 2000 

3000 PRINT RT d r , 0; INK 4;y;.- PR 
INT RT dr+3,0; INK 4;»S(P,1 TO 3 

3010 FOR n =1 TO 7. PRINT RT df,4 
40 41; INK 5; di (n) ; NEXT n 
3020 LET ro *1: LET gio«FN afy,p) 
LET gaO=9iO-7#INT OiO/7) 

3-030 FOR n =1 TO l (P ) ♦ ( (FN b(y)) 
RND (P =2) ) 

3040 PRINT RT r o4dr,1*4♦ lgio41) ; 
n. LET gio=gi04l 

3050 IF gì 0=7 THEN LET giO=0 LE 
T ro=ro4l 
3060 NEXT n 
3070 RETURN 
















Peter Gabriel Collection 


Lo avevamo chiamato in cau¬ 
sa nello scorso numero, in chiu¬ 
sura di una rapida panoramica 
sui rapporti, ogni giorno più 
stretti, tra musica ed elettroni¬ 
ca. Limitandoci a farne il nome, 
che per tanta gente e per tanti 
motivi è cosi ricco di credibilità 
e di fascino, avevamo cercato di 
far si che il suo straordinario ca¬ 
risma diventasse l’emblema di 
una nostra tesi: quella, cioè, che 
dai sintetizzatori è possibile tirar 
fuori molto di più di una sonorità 
poco conosciuta o addirittura 
inedita, spingendosi invece in 
direzione di un modo diverso e 
più attento di accostare i suoni e 
di sondarne il significato. 

Peter Gabriel, dunque, come 
incarnazione di questo atteggia¬ 
mento: ovverosia come esem¬ 
pio, razionale ed emotivo insie¬ 
me, di un inesauribile desiderio 
di esplorare in lungo e in largo 
ciò che accade via via che un 
ruomore si pone come suono e 
che quel suono, poi, si propone 
come musica. Ma non solo: 
perché quando la musica, a sua 
volta, moltiplica le sue risorse 
attraverso l’unione con altre di¬ 
mensioni espressive - come 
per esempio quelle legate 
all’uso delle immagini - Peter 
Gabriel è ancora II, a tradurre in 
linguaggi differenti la sua istinti¬ 
va certezza del fatto che non vi 
deve essere frattura tra le varie 


branche dell’arte. Per lui, a co¬ 
minciare proprio dal costante 
interesse per l’aspetto visivo, il 
problema dell’esprimersi è un 
problema globale, che non può 
essere risolto, o anche solo for¬ 
mulato, se non a patto di ricor¬ 
dare sempre e comunque che 
quelli che si stanno usando so¬ 
no né più né meno che dei sim¬ 
boli, i quali hanno origine nella 
realtà della vita di ogni giorno e 
proprio a quest’ultima devono fi¬ 
nire col ritornare. 

Più che la preoccupazione 
del “bello”, insomma, il vero 
obiettivo si direbbe la ricerca di 
una qualche forma di intensità, 
secondo un processo molto più 
ampio di quanto si pensi di solito 
e tale da superare, se non altro 
nelle intenzioni, la consueta di¬ 
visione tra artista ed ascoltato¬ 
re. 

“C’è qualcosa di molto ecci¬ 
tante nei nuovi strumenti elet¬ 
tronici. Se prima la difficoltà di 
raggiungere una certa abilità 
strumentale faceva del musici¬ 
sta uno specialista e dell’ascol¬ 
tatore un consumatore, ora la 
tecnologia dei microprocessori 
permette un grande numero di 
pratiche interattive. Il mio sogno 
sarebbe una macchina e 
un’opera che permettano da 
una parte di scegliere ciò che si 
vuole vedere o sentire e dall’al¬ 
tra parte di rhodificarlo con dei 


gesti semplici che non richiedo¬ 
no alcuna conoscenza partico¬ 
lare, come spingere un bottone 
o muovere un cursore: aggiun¬ 
gere la propria voce, le proprie 
immagini e il proprio feeling.” 

In una parola, insomma, diven¬ 
tare i protagonisti del proprio 
rapporto con l’arte. E se in que¬ 
sta visione cosi affascinante, 
ma anche assai più frastagliata 
e impegnativa di quanto non 
sembri a prima vista, c’è una 
buona dose di utopia, il suo si¬ 
gnificato più intimo non perde 
nemmeno un grammo di inte¬ 
resse e di legittimità: aumentare 
la partecipazione della gente a 
tutto ciò che la riguarda, ecco il 
vero messaggio di Peter Ga¬ 
briel. 

Ritrovare la curiosità per quello 
che non si è e che non si sa già; 
smettere di pensare all’arte, e 
agli artisti, come se appartenes¬ 
sero ad una sorta di "realtà se¬ 
parata” complicatissima e inac¬ 
cessibile; esprimersi, e prestare 
attenzione all’espressione degli 
altri, con la stessa naturalezza 
con cui si respira e con la stessa 
soddisfazione, o magari felicità, 
con cui si nuota nell’acqua o ci 
si crogiola al sole. 

Convintissimo di tutto questo, 
dunque, Peter Gabriel scorge 
nell’elettronica la pietra filosofa¬ 
le che renderà possibile il cam¬ 
biamento, trasformando l’opa- 
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ca e grezza rigidità di oggi nella 
luminosa e rinfrancante duttilità 
di domani. Ai suoi occhi, che re¬ 
stano comunque e innanzitutto 
gli occhi di un artista, le ben no¬ 
te preoccupazioni di un uso infi¬ 
do deH’informatica da parte del 
Potere passano quindi in secon¬ 
do piano, dissolte o perlomeno 
esorcizzate da un ottimismo 
che si sforza di destreggiarsi tra 
ciò che si spera e ciò che forse 
sarebbe giusto temere. Cosi, a 
quanti preconizzano il peggio 
sull’onda di quel 1984 di Orwell 
che evocava appunto la terrifi¬ 


cante tirannia di una società 
computerizzata (anche se poi, 
per dirla fino in fondo, il vero 
bersaglio del libro potevano an¬ 
che non essere tanto i cervelli 
elettronici in sé stessi quanto, 
piuttosto, i pericoli di una comu¬ 
nicazione di massa che tutto fil¬ 
tra e tutto livella) si risponde con 
la consapevolezza di chi com¬ 
prende perfettamente che an¬ 
che l'elettronica è solo un 
aspetto di un problema più am¬ 
pio, in cui l’eventuale segno ne¬ 
gativo di un futuro in chiave soft¬ 
ware non sarebbe che la diretta 


conseguenza del probabile per¬ 
sistere del nostro attuale ed ot¬ 
tuso egoismo. 

"Desidero una società che dia 
uguali possibilità a tutti e che sia 
fortemente decentralizzata. 
Con l'informatica tutto è possi¬ 
bile: mi piacerebbe che la tec¬ 
nologia fosse accettata come 
un processo, una liberazione e 
non una minaccia. Mi piacereb¬ 
be che essa non fosse combat¬ 
tuta in nome della piena occu¬ 
pazione, ma che venisse utiliz¬ 
zata per garantire una dignità di 
vita per tutti." 

Bene: proprio su queste paro¬ 
le, che sottolineano ulterior¬ 
mente la volontà dell’artista di 
saldare la sua attività all’evol- 
versi del mondo in cui vive, sem¬ 
bra opportuno concludere que¬ 
sta breve passeggiata tra le 
molte attrattive della "Peter Ga¬ 
briel Collection". E cosi come la 
volta scorsa, in cui la scelta 
cadde su una sorta di alchimista 
del Duemila, ecco una nuova 
immagine da sistemare in archi¬ 
vio: Peter Gabriel a San Remo 
'83, mentre vola sulla platea stu¬ 
pefatta tenendosi stretto a una 
corda; ha il volto dipinto, lo 
sguardo lucidissimo e indagato¬ 
re, e quando va a sbattere con¬ 
tro la base del palco - nella fase 
di ritorno delle sue evoluzioni 
nell’aria - la sua maschera ri¬ 
mane impassibile. 

Naturale: la sofferenza deve 
appartenere a Lui solo, che sa 
da tempo di averla nel suo desti¬ 
no di artista. Agli altri, nel loro 
stesso interesse, il commoven¬ 
te inganno dell’arte come spet¬ 
tacolo, in cui tutto può accadere 
senza troppo dolore e senza ve¬ 
ra realtà. 

Federico Zamboni 
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Fatturazione magazzino 


SECONDA PARTE 


# 


3190 Et * STR$ (Eli:SP « 6: GOSUI 20:ST 
$ ■ STt ♦ Et ♦ •!• 

3200 HOME 

3210 PRINT TABI 11JST» 

3230 IF PEEK ( - 16384) < > 155 THEN 
2970 

3240 POME - 16368,0 

3250 PRIMI CHRt (18): POME 1294,80: CA 

LL OT: POME 34,2 

3260 GOSUI 5580 

3270 IF FG THEN 2560 

3280 GOTO 450 

3290 POME 34,3 

33wO VIA* 3 

3310 PRINT TAK 13)'ARTICOLO'; 

3320 PRINT TABI 32) 'GUANIITA" 

3330 HOME 
3340 60SUB 5440 
3350 FI * 0 

3360 IF AU ♦ FI > AKO) THEN 3520 
3370 F = AKAU ♦ FI) 

3380 60SUB 5980 

3390 IF E2t ) < " THEN IF LEFTt (Al 
8, LEM (E2t)) > E2t THEN 3520 
3400 FI * FI ♦ 1 
3410 PRINT Alt; 

3420 Et ■ STRt (El) 

3430 HTAI 41 - LEN (Et) 

3440 PRINT Et 

Ì 450 VTA1 PEEK (37) 

460 IF FI - 19 t INT (FI / 19) > < 0 

THEN 3360 
3470 60SUI 5580 
3480 IF NOT F6 THEN 3520 
3490 VTAI 24 
3500 PRINT : PRINT 
3510 6QT0 3360 
3520 VTAI 3 
3530 INVERSE 
3540 PRINT ' FINE ' 

3550 NORNAL 
3560 POME 34,2 
3570 60T0 3260 
3580 REN 

3590 REN FATTURE 

3600 REN 

3610 POME 36,33 


3620 PRINT 'FATTURE* 

3630 A * 1 
3640 HOME 

3650 FOR I * 0 TO 3:AA(B) » - l:AC(B) 

- 0: NEXT 

3660 PRINT : PRINT 
3670 PRINT : INPUT • RATA ? '|E3t 
3680 IF E3t = " OR LEN (E3t) > 8 THEN 
VTAB 5: GOTO 3670 

3690 PRINT : PRINT ' DESTINATARIO FATTU 
RA' 

3700 PRINT : INPUT "iZXt: INPUT '';ZCt 
I INPUT "|ZVt 

3710 IF LEN IZXt) > 32 OR LEN (ZCt) > 
32 OR LEN (ZVt) ) 32 THEN VTAB 9: GOT 
0 3700 

3720 PRINT : INPUT 'PAGAMENTO '{BAt 
3730 BAt = LEFTt (BAt,28) 

3740 PRINT : INPUT 'COIICE PREZZO (0.1, 
2,3) ';Et 

3750 II * VAL (Et) 

3790 POME 34,0*. HOME 

3800 IF A ) 15 THEN 4540 

3810 PRINT 'DATA *|E3t 

3820 PRINT 'DESTINATARIO *ZXt;' ';ZCtJ 

' '|ZVt 

3830 VTAB 8 

3840 PRINT TAK 10)'DESCRIZIONE DEI BE 
NI': PRINT 

3850 IF A * 1 THEN 3890 
3860 FOR F = 1 TO A - . 

3870 PRINT 'I *;F|: HTAI 6: PRINT At(F) 

3?CHR*(15) J CHR*(9) 

* CHR$(51) 

IL IST 3880, 

3880 NEXT 

3090 PRINT 'I *8A|: HTAI 6: INPUT "JM 
3900 IF It = " THEN A * A • Il 60T0 45 
40 

3910 DS = LEFTt (Bt,20) 

3920 HONE 

3930 PRINT ' NA6AZZIN0';: PRINT TAK 3 
4)'FATTURE' 

3940 POME 34,2 


3950 60SUI 6460 

3960 IF NOT FG THEN PRINT : PRINT : P 
RINT 'INPOSTA QUALSIASI TASTO PER CONTIN 
UARE'; : 6ET Et: PRINT : 60T0 3790 
3970 POME 34,1: HONE : POME 34,2 
3980 F = AUF) 

3990 HONE 
4000 60SUI 5980 
4010 At(A) = Alt 

402C PRINT TAK 20 - LEN (Alt) / 2)A1 

t 

4030 PRINT : PRINT 'QUANTITÀ' DISPONISI 

LE.•; 

4040 Et = STRt (El) 

4050 HTAI 31 - LEN (Et) 

4060 PRINT Et 

4070 PRINT : INPUT 'QUANTITÀ' VENDUTA ? 
’JEt 

4080 Q(A) = INT ( VAL (Et)) 

4090 IF (fi(A) - 0 AND Et > < *0 

') OR El - GIÀ) < - 9999 THEN VTA 
B 6: 60T0 4070 

410C POME 34,4: HONE : POME 34,2 
4110 PRINT * QUANTITÀ’ VENDUTA *;8(A) 
4120 IF BB = 1 THEN P(A) = E2I 60T0 434 
0 

4130 IF Bl = 2 THEN P(A) « Cl: 60T0 434 
0 

4140 IF 81 = 3 THEN PIA) « Di: 60T0 434 
0 

4150 PRINT : PRINT 'PREZZO DI COSTO.... 

. •; 

4160 Et * STRt (11) 

4170 HTAI 31 - LEN (Et) 

4180 PRINT Et 

4190 PRINT : PRINT 'PREZZO SCONTATO.... 


4200 Et * STRt (E2) 

4210 HTAI (31 - LEN (Et)) 

4220 PRINT Et 

4230 PRINT : PRINT 'PREZZO RIVENDITORI. 


4240 Et = STRt (Cl) 

4250 HTAI 31 - LEN (Et) 

4260 PRINT Et 

4270 PRINT : PRINT 'PREZZO AL PUBBLICO. 
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4280 Et - STRt (DI) 

4290 HIAI 31 - LEM (Et! 

4300 PR1NT Et 

4310 PRINT : INPUT 'PREZZO UNITARIO ? ' 
;Et 

4320 PIA) ? INT ( VAL CES)) 

4330 IF PIA) =0 THEN VTAB 12: 60TO 43 
10 

4340 POKE 34,6! HOME : PONE 34,2 
4350 PRINT ' PREZZO UNITARIO 'SPIA) 
4360 PRINT : PRINT 1 UNITA' DI MISURA 
N' 

4370 IF Et = " THEN VTAB 8: 60T0 4360 
4380 U$(A) « •(' 

4390 PRINT : PRINT ' PERCENTUALE IVA 
•;61 

4400 IVIA) * 61 
4440 E1 s E1 - fi(A) 

4450 60SUB 5340 
4460 At'A) = All 
4470 F0R6-OTO3 

4480 IF AAIB) = - 1 THEN AA(B) » IVIA) 

4490 IF AAIB) = IVIA) THEN ACIB) * AC(B 

) ♦ PIA) t SIA): 60T0 4510 

4500 NEXT 

4510 A = A ♦ 1 

4520 60SUB 5840 

4530 GOTO 3790 

4540 PIO) = 0:IV(0) = 0 

4542 FOR B a 0 TO 3 

4543 IF AAIB) s - 1 THEN 4549 

4544 ABIB) = INT (ACIB) / 100 « AAIB)) 

4545 ABIB) = ABIB) ♦ (ACIB) / 100 t AAIB 
) > ABIB)) 

4546 PIO) : PIO) ♦ ACIB) 

4547 IVIO) * IVIO) * ABIB) 

4548 NEXT 

4549 HOME 

455C PRINT ' MAGAZZINO"; TABI 34PFATTU 
RE* 

4560 POKE 34,2 
4570 PR = 1 
4580 VTAB 10 

4590 PRINT 'PREDISPONI LA STAMPANTE ED 
INPOSTA' 

4600 PRINT 'IL NUMERO DELLA FATTURA IO 
PER LA BOLLA)' 

4610 INPUT "}F2$: PONE 34,22 
4620 IF F2t = " THEN 4580 
4630 IF F2t < > *0' THEN 4680 
4640 VTAB 11 

4650 PRINT 'IL NUMERO DELLA BOLLA 

4660 INPUT "JF2S 
4670 IF F2t * " THEN 4640 
4675 PR = 0 
4680 PRINT 


4690 CALL PS: PRINT CHRt (27);'C'; CHR 
% (66)i CHRt I27);*N'! CHRt (8) 

4700 PRINT 

4710 IF PR = 0 THEN PRINT 'BOLLA '{ 
4720 IF PR = 1 THEN PRINT 'FATTURA '; 
4730 PRINT 'ACC0HFA6NAT0RIA N. ';F2$! 
4740 PRINT SPCI 10);'DEL '5E3t: PRINT 

4750 PRINT 'FA6ANENT0'; SPCI 36);'DESTI 
NATARIO': PRINT 

4760 PRINT BAt; SPCI 45 - LEN (BAS));Z 

n 

4770 PRINT SPCI 45);ZCI 

4780 PRINT SPCI 45);ZVt 

4785 PRINT : PRINT : PRINT ' HH II H 1 H 

Hwww mmHUUHimmiimm 

4790 PRINT 'DESCRIZIONE DEI BENI 

UN QUANTITÀ' PREZZO IHPOR 
TO UVA' 

IQAA DDTkfT 

"3*v rR»ni TTTTTTTT iTTXTTTTTTTTXTTTTXT 

mnmmmi HHHwm mHimwi 

IlIIIITIKIIV 

4820 FOR F = 1 TO 35 

4830 IF F > !A) THEN PRINT : 60T0 5040 

484C STt = At(F):Et = At(F):SP a 33: GOS 
DB 20 

4 36C E* a Ut(F):SP = 2: 60SUB 20:ST* = S 
T$ ♦ Et 

4870 Et » STRt Ifi(F)):SP * 11: GOSUB 20 

:STt * STt ♦ Et 

4900 IF NOT PR THEN 5030 

4910 Et * STRt <P(F)):SP = 10: 60SUB 20 

:STt * STt ♦ Et 

4940 FI = GIF) I PIF) 

4950 Et = STRt (FI):SP = 13: 60SUB 20:S 
Tt = STt ♦ Et 

4980 Et * STRt (IV(F)):SP * 9: GOSUB 20 

:STt a STt ♦ Et 

5030 PRINT STt 

5040 NEXT 

5050 PRINT 

5060 IF NOT PR THEN FOR F = 1 TO 9: P 
RINT ' ': NEXT : GOTO 5390 
5065 STt = '• IVA ' 

5070 FOR F * 3 TO 0 STEP - 1 

5080 IF F ( 3 THEN STt = STt ♦ '! IVA 
• 

5090 IF AAIF) > - 1 THEN Et - STRt (A 
A(F)):STt a STt ♦ Et ♦ 'S ' 

5092 IF AAIFì < - 1 OR AAIF) = - 1 TH 
EN STt s STt ♦ ' 

5110 NEXT 

5115 STt = STt ♦ '! TOTALE ! 

!': PRINT STt 

5130 PRINT '!.!.!~ 

__i___i_i_ 


5140 PRINT '• IMPONIBILE! IMPONIBILE! I 
HPONIBILE ! IMPONIBILE! IMPONIBILE! 

i* 

5145 STt = '" 

5150 FOR F * 3 TO 0 STEP - 1 
5180 IF AAIF) > - 1 THEN Et * STRt I 
INT (AC(Fi)>:SP = li: 60SUB 20:STt = STt 
♦ Et ♦ '!• 

5190 IF AAIF) < - 1 OR AAIF) = - 1 TH 
EN Et » • !':STt a STt ♦ Et 

5200 NEXT 

5220 Et * STRt ? INT (PIO))) 

5230 SP = li: SOSUB 20:STt * STt ♦ Et ♦ 
" TOTALE FATTURA !' 

5240 PVINT STt 

5250 STt a •» » i 

5260 Et a STRt I INT (PIO) ♦ IVIO))) 
5270 SP a 16: 60SUB 20:STt a STt ♦ Et ♦ 
'!': PRINT STt 

5280 PRINT '! IVA • IVA ! 

IVA ! IVA ! IVA ! 

| • 

5285 STt = '!• 

5290 FOR F a 3 io o STEP - 1 

5320 IF AAIF) > - 1 THEN Et = STRt I 

INT (ABIF))) 

5325 IF AAIF) < - 1 OR AAIF) = - 1 TH 
EN Et = ' 

5330 SP = 11: GOSUB 20:STt = STt ♦ Et ♦ 

■ i • 

5340 NEXT 

5360 Et a STRt I INT (IVIO))) 

5370 SP = 10: GOSUB 20:STt a STt ♦ Et ♦ 

' ! •• 

5380 PRINT STt: PRINT '!.! — 


_i..i ■ 

5390 CALL OT: PONE 34,2 

5400 HOME 

5410 SOSUB 5580 

5420 IF F6 * 1 THEN 3630 

5430 60T0 450 

5440 REN 

5459 REN QUESTA SUBROUTINE CERCA L'ART 
ICOLO 

5460 REN 

5470 AH a At(O) ♦ 1 
5480 AL a o 

5490 IF AL ♦ 1 = > AH THEN AU = AH:F6 
a 0: 60T0 5560 

5500 AU a INT ((AH ♦ AL) / 2) 

5510 BC a At(AU): GOSU* 8990 
5520 INPUT Et 

5530 IF Et < Bt THEN AL a AU: GOTO 5490 

5540 IF Et > Bt THEN AH a AU: 60TO 5490 

5550 F6 = 1 
5560 PRINT Dt 
























5570 RETURN 
558C REN 

5590 REN QUESTA SUBROUTINE CHIESE SE S 
I VUOLE CONTINUARE 
5600 REA 
5610 VTAI 2 
5620 HTAI l: INVERSE 
5630 PR1NT • (CTRL-F) = FINE: (SPACEI * 
CONTINUA 
5640 6ET Et 
5650 NORNAL 
5660 FRINT 
5670 VTAI 2 
5680 PR1NT SPCI 40)" 

5690 IF Et « • • THEN FS « l: RETURN 
5700 IF Et > < CHRt (6) THEN 5610 
5710 F6 * 0 
5720 RETURN 
5730 REN 

5740 REN SUIROUTINE II INPUT 
5760 FI = PEEK 136) 

5770 F2 = PEEK 137) 

5730 INPUT At 

5790 F3 « INT ( VAL (At>) 

5300 RETURN 
5810 HTAI FI ♦ 1 
5520 VTAI F2 ♦ 1 
5830 60T0 5780 
5640 REN 

5850 REN QUESTA SUIROUTINE SCRIVE I DA 
TI NEL FILE 
5860 REN 

5870 IC - F: 60SUI 9030 

5880 PRINT Alt 

5890 PRINT 11 

5895 PRINT EO 

5900 PFINT CO 

5910 P8IN T DO 

5923 FR11T E1 

5533 9RINT 62 

:94i PRINT H. 

5?:0 PRINT It 
597C RETURN 
5980 REN 

5990 REN QUESTA SUIROUTINE LEG6E I DAT 
I DAL FILE 
6000 REN 

6010 BC * F: 60SUB 8990 

6020 INPUT Alt 

6030 INPJT 11 

6035 !#»T EO 

6040 INPUT CO 

6C50 INPUT DO 

60c'. INPUT E1 

iC _ C I*P'JT 62 

508; !H?JT H. 

il CO FRIMT Dt 

5102 E2 = INT (81 ♦ Il / 100 t EOI 


6104 CI = INT (B1 * Il I 100 « C0> 

6106 Di = INT ì B1 ♦ Bi / 100 t DO) 

6108 61 = 1162) 

6110 RETuRN 
6120 REN 

6130 «EH QUESTA SUBROUTINE STANPA I DA 
TI DELL’ARTICOLO 
6140 REN 
6150 *NE 

616( : RINT : PRINT TAK (40 - LEN (Al 

t)! / 2>Alt 

6162 PRINT : PRINT * QUANTITÀ’. 

. *5 

6163 Et = STRt (El) 

6164 HTAI 33 - LEN (Et) 

6165 PRlfT Et 

6:70 ON HK GOTO 6214,6230,6280 

6130 PRINT : PRINT * PRE220 DI COSTO.. 


6190 Et = STRt (11) 

6200 HTAI 33 • LEN (E*l 

6210 PRINT Et 

6211 PRINT : PRINT ■ PREZ20 SCONTATO.. 


6218 Et - STRt (£2) 

6222 HTAI 33 • LEN (Et) 

6226 PRINT E* 

6230 PRINT ; PRINT • PREZZO PI VENDI 1 OR 

I.*! 

6240 Et * STRt (Cl) 

6250 HTAI 33 - LEN (Et) 

6260 PRINT Et 

6250 PRINT : PRINT • PREZZO AL PUIILIC 

0.*1 

6290 Et * STRt (11) 

6300 HTAI 33 • LEN (Et) 

6310 PRINT Et 
6450 RETURN 
6460 REN 

6470 REN QUESTA SUIRUOTINE CERCA L’AR 
TICOLO PER TIPI 
6480 F = LEN (It) 

6490 60SUI 5440 
6500 FI = 0 

6510 IF (AU ♦ FI) > ALIO) THEN 6620 
6520 IC * AKAU ♦ FI): 60SUI 1990 
6530 INPUT Alt 

6540 IF LEFTt (Alt,F) > < H THEN 662 
0 

6550 FI = FI ♦ 1 
6560 PRINT Flt: HTAI 5 
65"*0 PRINT Alt 

6580 IF FI - 20 » INT (FI / 20) > <0 
THEN 6510 
6590 PRINT It 
6600 60SUI 5580 

6610 IF FS THEN VTAI 24: PRINT : PRINT 
: 60T0 6510 


6620 PRINT Dt 

6630 FI * FI - 1 

6640 IF FI > 0 THEN 6690 

6650 IF FI > 0 THEN F = 0: 60T0 6800 

6660 PRINT : PRINT 'L’ARTICOLO NON E’ 

PRESENTE' 

667C F6 = 0 

6680 RETURN 

6690 ONERR GOTO 6770 

6700 INVERSE 

6710 VTAI 2: HTAI 1 

6720 INPUT 'INPOSTA IL NUMERO BELL’ARTI 

COLO *)F 

6730 F * F • 1 

6740 IF F * > 0 ANI F * < FI THEN 678 

• 

6750 IF F * - 1 THEN NORNAL : HONE : 

GOTO 6670 

6760 60T0 6710 

6770 VTAI 2: RÉSUMÉ 

6780 PONE 216,0 

6793 NORNAL 

6830 F s F ♦ AU 

69)0 F6 = 1 

6320 RETURN 

6830 POtt 34,0 
6340 HONE : ENI 
6890 REN 
6900 HONE 

691C PRINT : PRINT TAK (40 - LEN (Al 
f)l / 21 Alt 

6920 PRINT I PRINT • COSTO SOSTENUTO.. 

.M 

6930 Et ? STRt (11) 

6940 HTAI 33 • LEN (Et) 

6950 PRINT Et 

6960 PRINT : PRINT ' PREZZO RIVENDITOR 

I.*i 

6970 Et » STRt (Cl) 

6980 HTAI 33 < LEN (Et) 

6990 PRINT Et 

7000 PRINT : PRINT ' PREZZO AL PUBBL1C 

o.•; 

7010 Et * STRt (11) 

7020 HTAI 33 - LEN (Et) 

7030 PRINT Et 

7040 PRINT : PRINT • QUANTITÀ*. 


7050 Et = STRt (El) 

7060 HTAB 33 • LEN (Et) 

7070 PRINT Et 

7080 PRINT : PRINT ' PREZZO SCONTATO.. 

.*! 

7090 Et * STRt (E2) 

7100 HTAI 33 - LEN (Et) 

7110 PRINT Et 

7120 PRINT : PRINT • PERCENTUALE IVA.. 
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Introduzione 

Da sempre ci si è trovati da¬ 
vanti al problema di comuni¬ 
care con una persona di lin¬ 
gua diversa. La soluzione è 
abbastanza semplice: o uno 
impara la lingua dell’interlo¬ 
cutore oppure ricorre ad un in¬ 
terprete che in questo caso fa 
da interfaccia fra le due per¬ 
sone. Il requisito fondamenta¬ 
le è che l’interprete conosca 
entrambi i linguaggi. 
Rifacendosi all’esempio pre¬ 
cedente, esiste fra gli appara¬ 
ti elettronici una forma d’im- 
compatibilità a livello di in¬ 
put/output dovuto alla non 
completa unificazione di col¬ 
loquio tra i vari dispositivi. 
Nell’articolo di questo nume¬ 
ro si cercherà di rendere com¬ 
patibile l’uscita seriale RS232 
propria del VIC alla configura¬ 
zione d’uscita dello standard 
RS232. (Vedi figurai) 

Infatti, i vari dispositivi, siano 
essi modem, stampanti etc., 
usano dei connettori Canon a 
25 Pin sui quali, per rispettare 
lo standard RS232, ad ogni 
Pin corrisponde un segnale di 
controllo per lo scambio dei 
dati. (Vedi figura 2). 

Inoltre, essendo i segnali digi¬ 
tali di ingresso/uscita del VIC 
a logica TTL (Alto= +5 V: 
Basso = 0, nasce l’esigenza 
di traslare i livelli a + 12 e -12 
Volt. 

Questo standard RS232 è sta¬ 
to messo a punto dalla EIA 
(Electronics Industry Asso- 
ciation) per la trasmissione 
seriale di informazioni fra cal¬ 
colatori e periferiche. 

Nel VIC non esiste una perife¬ 
rica hardware per la RS232, 
ma la stessa è simulata trami¬ 
te software. 

Tutte le linee di controllo so¬ 
no connesse alle stesse linee 
usate normalmente per la 
User-Port. Come evidenziato 
in figura, il VIC può benissimo 
consentire una trasmissione 



Interfaccia 

RS232 




seriale sia con tre linee 
(TRHEE LINE INTERFACE - 
Trasmissione / Ricezione / 
Massa segnale), sia con tutte 
le linee di controllo (X LINE 
INTERFACE), perché sono 
previsti quasi tutti i più impor¬ 
tanti segnali di controllo. 


Schema elettrico 

Come possiamo constatare 
osservando lo schema elettri¬ 
co, l’interfaccia usa soltanto 


Schema Elettrico 
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tre circuiti integrati: (vedi fig. 
4) 

Un 7414 (Buffer / IC1), un 
75188 (Quadruple Line Driver/ 
IC3) ed un 75189 (Quadruple 
Line Receivers/IC2). 

IC2 ed IC3 sono degli integrati 
particolari, usati specificata- 
mente per traslare livelli di 
tensione in base alla loro ten¬ 
sione di alimentazione. 

IC3, infatti, è alimentato da 
due tensioni: +12 V al pin 14 
e -12 V al pin 1. I segnali in 
uscita dal VIC essendo a logi¬ 
ca TTL saranno traslati alle ri¬ 
spettive tensioni. 

Analogo è il discorso per IC2 
che è alimentato a +5 Volt: 
esso riceve in ingresso se¬ 
gnali a ± 12 V e li converte per 
farli accettare dal VIC senza 
peraltro danneggiare nulla. 

I pin 9 - 12 - 2 - 5 di IC2 vanno 
lasciati appesi. 


Alimentatore 

Lo stadio alimentatore forni¬ 
sce le tensioni ± 12 V che ser¬ 
vono per alimentare IC3. Il cir¬ 
cuito stampato non è stato 
presentato perché data la 
semplicità della sua realizza¬ 
zione è stata usata una baset¬ 
ta millefori. L’unica avverten¬ 
za è di non confondere fra di 
loro i due regolatori poiché la 
disposizione dei Pin è diver¬ 



sa. Il regolatore per la tensio¬ 
ne negativa (7912) ha la massa 
spostata a sinistra rispetto 
all’altro (visto di fronte). 



Note costruttive 

La costruzione del circuito 
stampato non dovrebbe costi- 


LATO COMPONENTI 


o o 


o o 


illllllllllì 


PONTICELLI PASSANTI 
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tuire un problema per gli ami¬ 
ci lettori; l’unica avvertenza, 
come sempre, è di fare le sal¬ 
dature sia nella parte superio¬ 
re che in quellg/inferiore dello 
stampato ed eseguire i ponti¬ 
celli come indicato nell’appo¬ 
sito disegno. (Vedi figura 6) 
Con dei fili, poi, va collegato il 
circuito stampato al connet¬ 
tore Cannon a 25 pin rispet¬ 
tando la numerazione impres¬ 
sa sia sul connettore che sul¬ 
lo stampato. (Figure 7-8) 


Software 

Nel VIC la Porta seriale RS232 
viene trattata come una peri¬ 
ferica qualsiasi e la riconosce 
assegnandogli il numero 2; gli 
altri comandi per la gestione 
file rimangono identici: 
PRINT# / INPUT# / GET# / 
CMD. 

Per quanto riguarda la pro¬ 
grammazione della porta 
RS232 nel VIC, si consiglia la 
lettura del testo “Alla scoper¬ 
ta del VIC 20” di R. Bonelli & 
D. Gianni. 


LATO RAME 


FAI DA TE 


IC3 



IMIIII- 

- 1 1 



12 11 IO 9 8 7 6 5 4 3 2 1 



COMPON ENTI 

IC 1 - 7414 

I C 2 - 75 1 89 

I C 3 7 5 188 

1 CONNETTORE CANNON 
a 2 5 p i n 
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Il computer 
e... il telefono 


Lungi dall'essere nelle stesse 
condizioni di alcuni paesi più 
avanti di noi nell’uso dei compu- 
ters e qualche volta, con gli in¬ 
convenienti ad essi legati, sulle 
pagine di alcuni giornali italiani 
è apparsa ultimamente una cu¬ 
riosa notizia. 

A Firenze, nella locale univer¬ 
sità, per qualche tempo si è veri¬ 
ficata una sequela di proteste 
degli uffici amministrativi e di 
molti studenti che, nel richiede¬ 
re alcuni documenti, si sono ri¬ 
trovati con la carriera universi¬ 
taria praticamente azzerata, an¬ 
che se mancavano pochi esami 
alla laurea. 

Dopo lunghe ricerche, gli inve¬ 
stigatori sono venuti a capo del 
mistero scoprendo che, un im¬ 
piegato in vena di burle, era riu¬ 
scito a capire la chiave di ac¬ 
cesso al computer dell’univer¬ 
sità. Il buontempone, dalla pro¬ 
pria abitazione, usando compu¬ 
ter collegato attraverso un MO¬ 
DEM (Modulatore- 

Demodulatore) alla linea telefo¬ 
nica, si "divertiva” a modificare 
le carriere degli studenti ed a ri¬ 
tardare l’invio dei finanziamenti 
ai singoli istituti delle facoltà 
dell'università. 

A quanto pare non è questo 
l’unico caso di pirateria elettro¬ 
nica in Italia. Qualche anno fa, 
in un’altra università, quella di 
Pisa, il cui centro di Calcolo è 
collegato con la più grande Ban¬ 
ca Dati d’Europa, a cui afflui¬ 
scono molti terminali di banche 
italiane, si verificò una intromis¬ 


sione non autorizzata in qualche 
angolo remoto di memoria che 
causò il blocco delle funzioni 
operative del calcolatore per 
qualche secondo. 

Gli addetti ai lavori sanno bene 
che tali blocchi di funzione, an¬ 
che se della durata di pochi se¬ 
condi, possono provocare danni 
anche irreparabili e spesso an¬ 
che perdite in denaro di parec¬ 
chie decine di milioni. 
Certamente se non viene al più 
presto presa in considerazione 
l’opportunità di una legge che 
regolamenti l’uso del computer, 
nei prossimi anni ne vedremo 
delle belle. Comunque, ancora 
non è il caso di ritirare i vostri 
soldi dalla banca per metterli, 
come una volta, sotto il famoso 
mattone. 

Attenzione 
ai... pirati! 

Ci giungono molte richieste ri¬ 
guardanti i metodi di protezione 
dei programmi da eventuali co¬ 
pie non autorizzate. 

Abbiamo purtroppo il sentore 
che queste richieste servano 
per l’uso opposto, cioè ad elu¬ 
dere più facilmente tali protezio¬ 
ni. 

Non vorremmo incrementare in¬ 
volontariamente una delle mag¬ 
giori piaghe relativa al mercato 


degli home computers. 

Ci è giunta notizia dai lettori, per 
sentito dire o per conoscenza 
diretta, che il fenomeno delle 
copie "pirata”, sta assumento 
dimensioni da business indu¬ 
striale. 

Infatti, oltre alle copie contraf¬ 
fatte e veicolate su supporti ma¬ 
gnetici (nastro o diskettes), co¬ 
minciano a circolare anche co¬ 
pie di software su cartuccia 
elettronica. 

Ciò è il segno evidente di una in¬ 
discriminata diffusione di dupli¬ 
catori e programmatori di 
EPROM. 

In mano ad individui senza trop¬ 
pe remore, tali strumenti sono in 
grado di riprodurre copie, spes¬ 
so imperfette da un punto di vi¬ 
sta tecnico, ma che costano 
esattamente e spesso di più de¬ 
gli originali regolarmente distri¬ 
buiti dai software shop. 
Immaginiamo quindi cosa suc¬ 
cede con dei supporti tradizio¬ 
nali e tra l’aftro magnetici, come 
accennavamo poc’anzi. 

Non esiste ancora una precisa 
regolamentazione sulla questio¬ 
ne del COPYRIGHT e spesso bi¬ 
sogna anche ammettere che il 
prezzo che si paga, è esagerato 
se rapportato alla qualità dei 
programmi acquistati. 

Ciò vale specialmente per quel¬ 
la che è la maggior fetta del soft¬ 
ware offerto sul mercato, e cioè 
i videogiochi, di cui non dimenti¬ 
chiamolo, i maggiori acquirenti 
sono i giovanissimi, apparte¬ 
nenti ad una fascia sociale, cer¬ 
tamente non ricca. 

Come spesso accade con l'itali¬ 
ca filosofia dell’arrangiarsi, le 
cose si fanno sempre più difficili 
e confuse. Speriamo in una rapi¬ 
da regolamentazione del setto¬ 
re. 
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Vi prego di mettere in corso un ab¬ 
bonamento a 6 numeri della rivista 

— L. 30.000 (Italia) 

— L. 60.000 (estero) 

Forma di pagamento 

□ unito alla presente in contanti 

□ assegno n. 

Banca . 

□ versamento c.c.p. n. 72609001 
intestato a «LIST - programmi 
per il tuo home computer» 

Desidero ricevere la rivista 

□ a casa □ fermoposta 


nome 


cognome 


via 


città 


MIMI II II II II 

e»P età 


posseggo un home computer 


tipo: 

N B. - Conservare il tagliando ricevuta del c.c.p.. esso costituisce docu 
mento idoneo e sufficiente ad ogni effetto contabile In quanto l'IVA su 
periodici è assolta dall'editore - Non si rilasciano fatture. 



PER ABBONARTI 



PER ISCRIVERTI AL LIST CLUB 



Vi prego di accettare la mia iscrizio¬ 
ne al LIST-CLUB e di inviarmi tesse¬ 
ra e adesivo. 

□ ho pagato L. 20.000 

□ ho pagato L. 10.000 perché 
abbonato alla rivista 

Forma di pagamento 

□ unito alla presente in contanti 

□ assegno n. 

Banca . 

□ versamento c.c.p. n. 72609001 
intestato a «LIST - programmi 
per il tuo home computer» 


1 1 1 1 1 1 1 1 1 1 1 1 

IMI 

1 1 

nome 

1 1 1 1 1 1 1 1 1 1 1 1 

IMI 

1 1 

cognome 

Il 1 1 1 1 1 1 1 1 1 1 

Il II 

1 1 

via 

Il II II II II 1 

Il II 

1 1 

città 

Il II II I II 1 

IMI 

1 1 

cap. età 

1 1 1 1 II 1 1 II 1 1 

Il II 

1 1 

posseggo un homo computar 

1 II 1 1 1 1 1 1 1 M 

Il II 

1 1 


tipo: 













































































Inserire in busta chiusa 


Spett. LIST 

programmi per il tuo home computer 

Casella Postale 4092 
00182 ROMA APPIO 



Inserire in busta chiusa 

Spett . LIST 

programmi per il tuo home computer 

Casella Postale 4092 
00182 ROMA APPIO 











ti apre 


un credito 


LIST non ti da un semplice abbonamento ad una 
rivista: abbonarsi è come acquistare una carta di 
credito per una gamma completa di servizi. 



più di 200 programmi a casa tua per meno 
di 150 lire l’uno 
in regalo subito una cassetta 
per registrare i tuoi 
programmi 
uno sconto del 50% 
sul costo dell’iscrizione 
al LIST CLUB 
aggiornamento costante 
sulle novità nel campo 
degli home 

blocco del prezzo di copertina per un anno 


• sconto del 20% su libri e fascicoli editi da LIST 


• l’uovo LIST ha in serbo per chi entrerà 
nel suo mondo 


MAGNIFICHE SORPRESE! 


perché non ti abboni? 


pensaci! J 










